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Capítulo 1 
Presentación de LOGO 


LOGO no es un lenguaje nuevo; existe desde hace bastante tiempo. Sin embargo, 
hace poco que está disponible para microordenadores; la versión de Digital Re- 
search, Dr LOGO, apareció en 1984. 


Los ordenadores Amstrad de la serie CPC cuentan con un LOGO que es mucho más 
poténte que cualquier versión de BASIC para microordenadores. Es posible que 
usted haya oído algo sobre LOGO y tenga la idea de que se trata de un sistema de 
gráficos para niños. En efecto, algunas versiones de LOGO no son más que un sis- 
tema de gráficos, pero no las podemos considerar como “auténticos”? LOGO, sino 
como algo que podríamos denominar “LOGO de juguete””. En cambio, Dr LOGO 
es un sistema potente con el que podemos llegar muy lejos. 


Vamos a comenzar esta Guía de LOGO abordando los gráficos de tortuga, proba- 
blemente el aspecto más famoso de LOGO, pero nuestro objetivo final será desarro- 
llar una base de datos con ciertas similitudes a PROLOG, un lenguaje de ordenado- 
res de la “quinta generación””. A lo largo de este camino vamos a intentar dar al 
lector una idea de la enorme capacidad de LOGO, un lenguaje diseñado para am- 
pliar los horizontes del usuario. 


Como cualquier libro, esta Guía ha sido escrita pensando en un lector ideal: una 
persona de mentalidad abierta, tal vez un programador novel, o incluso una persona 
que no sepa programar absolutamente nada, dispuesto a aprender algo nuevo sobre 
las capacidades de los ordenadores. El lector puede ser incluso un programador ex- 
perto, pero lo verdaderamente importante es que esté dispuesto a leer, condición sin 
la cual esta Guía no serviría para nada, y a experimentar sin miedo a cometer 
errores. 


Esta guía no va dirigida a niños pequeños; más bien está pensada para que ayude 
a niños un poco mayores o a los padres que tengan intención de emplear LOGO con 
los niños más pequeños. La mejor forma de ayudar a estos últimos a usar los orde- 
nadores de forma constructiva consiste en comprender en primer lugar un lenguaje 
constructivo como es LOGO. 


Tradicionalmente, se ha considerado LOGO como un lenguaje para niños peque- 
ños, pero no es mi intención enseñar a programar a éstos, sino proporcionar la he- 
rramienta necesaria a los adultos y a niños algo mayores para que ayuden a los más 
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pequeños a desarrollar sus cualidades geométricas, matemáticas y lógicas. Al desa- 
rrollar este proceso, los mayores podrán explorar a fondo las técnicas de programa- 
ción; mi intención es arrancar de unas pocas ideas y dejarlas extenderse dentro de 
los límites de la imaginación de cada uno. 


Hay una filosofía a la hora de enseñar LOGO que dice que lo único que tenemos 
que hacer es enseñar a los niños los elementos de este lenguaje y dejarlos que jue- 
guen con ellos. Yo no estoy de acuerdo con esta idea: deje que los niños exploren 
el sistema, pero un sistema potente y controlable. 


Aunque hay mucha gente que se las apaña perfectamente con el teclado para contro- 
lar el ordenador, por ejemplo en los juegos, otras personas, entre las que me encuen- 
tro yo mismo, tenemos una coordinación bastante peor. La solución en estos casos 
consiste en emplear otro tipo de dispositivos de control, como puede ser el ““joys- 
tick””. Desarrollar programas que empleen los joystick es en sí un excelente ejercicio 
de programación, y además nos proporciona un sistema para controlar el ordenador 
que, en muchas ocasiones, es más fácil de usar. 


La programación tiene como objeto controlar el ordenador para investigar aplica- 
ciones de interés. Por desgracia, muchas personas emplean los ordenadores única- 
mente para jugar. Con LOGO podemos jugar, por supuesto, pero también pode- 
mos desarrollar programas mucho más interesantes y estimulantes desde el punto 
de vista intelectual. 


Si vamos un poco más allá del terreno infantil, podemos emplear LOGO para cosas 
más ““serias””; por esta razón he incluido dos aplicaciones que muestran qué pode- 
mos conseguir con este lenguaje. 


Antes de comenzar con Dr LOGO, quiero dar las gracias a Chris Lusby-Taylor y 
a Tony Harris de Digital Research por su ayuda y colaboración, y a John Cunliffe 
por las abundantes y fructíferas discusiones que ambos hemos mantenido. 


Capítulo 2 
Puesta en marcha de LOGO 


Este capítulo de introducción tiene por objeto servirle de ayuda para que aprenda 
rápidamente a emplear un lenguaje realmente potente: LOGO. Todo lo que usted 
necesita para seguir este capítulo es el disco de LOGO que acompaña a su ordena- 
dor. Nuestro objetivo principal es indicar en líneas generales cómo funciona LO- 
GO. En principio me he limitado a las posibilidades más sencillas, referentes a los 
gráficos de tortuga y a la disposición de la pantalla, porque considero que ésta es 
la forma más rápida de comprender cómo está organizado el lenguaje. 


Si el lector ya ha cargado LOGO en su ordenador, o sabe cómo hacerlo, puede sal- 
tarse esta sección; nos encontraremos en el próximo apartado, que se titula “En bus- 
ca de la Tortuga”. 


2.1 Cómo cargar LOGO 


En primer lugar, lea las instrucciones referentes al manejo de discos en el manual 
del ordenador. A continuación tome el disco de CP/M que contiene LOGO en su 
cara 2 e introdúzcalo en la unidad de discos. Una vez aparezca la señal de BASIC 
Ready, aparece también el cursor, que indica que el ordenador está esperando que 
le dé una orden. Para comenzar su exploración por el mundo de LOGO, escriba: 


¡cpm [INTRO 


con lo que se borra la pantalla y oirá que la unidad de disco se pone en funciona- 
miento. significa que hay que pulsar la tecla INTRO. Antes de que vuelva 
a cambiar la pantalla verá durante un momento: 


CP/M 2.2 — Amstrad Consumer Electronics ple 


A>LOGO 


en un ancho de 80 columnas por línea. A continuación se borra la pantalla y apare- 
ce el mensaje Amstrad LOGO V1.1. La pantalla vuelve a cambiar rápidamente y 
se encontrará con una interrogación 


? 
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en el ángulo izquierdo, seguida por el cursor. Hasta aquí no debería haber tenido 
ningún problema; pero en caso de que, por ejemplo, el resultado de 


¡cpm 

sea: 
CP/M 2.2 — Amstrad Consumer Electronics plc 
A> 


y no se cargue LOGO, lo más probable es que haya empleado un disco equivocado 
(o un disco correcto pero colocado al revés). También puede comprobar el conteni- 
do del disco por medio de la orden DIR. Si las cosas no van bien y no ha conseguido 
cargar LOGO, espere un momento; en caso contrario escriba: 


?bye 
con lo que volvemos al modo de 80 columnas, y aparece el mensaje: 
A> 


Esto quiere decir que está en CP/M. 


Si usted no consiguió cargar LOGO y el ordenador le mostró este mensaje, ya sabe 
que se encontraba en CP/M. Por supuesto, si el mensaje fue otro, como por 
ejemplo 


Drive A: disc missing 
Retry, Ignore or Cancel? 


quiere decir que no había puesto ningún disco en la unidad. El ordenador cuenta 
con otros mensajes que pueden informarle de que el disco no contiene CP/M o de 
que no está en buenas condiciones. En caso de duda o confusión consulte el manual 
de CP/M. 


Si estando en CP/M da la siguiente orden: 


A>dir 
puede comprobar que obtiene la respuesta: 


A: LOGO COM: SETUP COM: AMSDOS COM 
A> 


dado que ha solicitado un directorio de los ficheros que contiene el disco. En caso 
de que se haya equivocado en algo, el directorio tendrá muchos más ficheros, o tal 
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vez muchos menos. En el primer caso, si algunos de los ficheros son los siguientes: 
MOVCPM COM: PIP COM 


quiere decir que tiene el disco del revés, con CP/M hacia arriba en lugar de estar 
en esa posición la cara con LOGO, como debería ser. 


Ahora coloque correctamente el disco, con LOGO hacia arriba (si estaba bien pues- 
to no lo toque), y vuelva a LOGO desde CP/M. Para ello, siga estas instrucciones: 


1. Si originalmente usted consiguió entrar en LOGO y salió del mismo por medio 
de bye, todo lo que debe hacer es escribir: 


A> logo 


y volverá otra vez a LOGO 


2. Si hasta ahora no ha conseguido entrar en LOGO, hay que reinicializar el siste- 
ma, cosa que se consigue de forma automática por medio de la rutina SETUP. De- 
be volver a CP/M para reajustar algunas teclas que emplea LOGO de forma espe- 
cial; para ello escriba: 


A>amsdos 
para pasar a BASIC; y desde BASIC: 
¡cpm 
al igual que antes. Es muy importante partir siempre de BASIC, aunque luego entre 


y salga de LOGO, porque éste es el único sistema que permite ajustar LOGO 
correctamente. 


En caso de que se le presenten otros problemas, tendrá que pedir consejo a alguien 

con experiencia que pueda estudiar su caso particular, aunque siempre es interesante 

echar un vistazo al apéndice ““Discos y LOGO”, en el que podría encontrar la solu- 

ción a su problema. 

2.2 En busca de la tortuga 

Una vez que LOGO está listo para trabajar, aparece en pantalla una interrogación: 
rd 


y junto a ella el cursor. Veamos qué sucede al escribir las dos letras st 


?st 
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Ante esta instrucción, que es la abreviatura de ““showturtle”” (mostrar tortuga), el 
ordenador puede reaccionar de dos formas distintas. 


La primera posibilidad es la siguiente: 


Il don't know how to ?st 
? 


que significa “No sé cómo hacer ?st””, dado que hemos escrito ?st en lugar de st. 
Siempre que escribamos algo incorrecto, como por ejemplo sh en lugar de st, 
LOGO volverá a decirnos que no lo reconoce. Normalmente el ordenador muestra 
el mensaje | dont't know how to ... (No sé cómo hacer ...). 


st es una ““primitiva”” de LOGO, es decir, una instrucción interna que permite reali- 
zar una secuencia de operaciones. Más adelante, cuando cree sus propias secuencias 
de instrucciones y les dé nombres, obtendrá lo que se conoce como un 
““procedimiento””. 


En LOGO, tanto las primitivas como los procedimientos tienen como objeto reali- 
zar alguna tarea, así que la otra respuesta posible del ordenador a su primera orden 
es borrar la pantalla, quedando ésta limpia en sus tres cuartas partes superiores, sal- 
vo un pequeño dibujo en el centro. Esto es lo que se denomina “*pantalla gráfica”. 
En este momento la interrogación se encuentra situada en la parte inferior de la pan- 
talla, en el extremo izquierdo de la quinta línea contando desde abajo, junto al cur- 
sor. Por último, casi en el centro de la pantalla hay una pequeña figura. 


Esta figura es lo que denominamos “tortuga”. 


Si examina la tortuga con detalle, verá que tiene forma de punta de flecha dirigida 
hacia la parte superior de la pantalla; el trazo que constituye la cola de la flecha con- 
firma dicha dirección vertical. 


Ahora escriba: 


?fs 


El mensaje que acaba de escribir desaparece. Toda la pantalla queda como estaba 
previamente la parte superior de la misma y, si teclea algún mensaje, no se reprodu- 
ce en la pantalla. 


¿Cómo puede volver a la situación en la que se ven los mensajes que escribe? Aun- 
que no se reproduzca en pantalla, escriba ts [INTRO]; la pantalla se ilumina, la tortu- 
ga desaparece y volvemos a encontrarnos en el ángulo superior izquierdo el signo 
de interrogación y el cursor. Para volver a la situación en que la pantalla se encuen- 
tra dividida en una zona para la tortuga y una zona para el texto escriba ss. Funda- 
mentalmente hay tres formas que permiten combinar en pantalla los espacios para 
la tortuga y para el texto. La instrucción ts, que viene de *““Textscreen”” (pantalla 
de textos), dedica toda la pantalla a presentación de textos; ss, abreviatura de 
““Splitscreen”” (pantalla dividida), divide la pantalla dejando una zona para la tortu- 


UN POCO DE ENTRENAMIENTO CON LA TORTUGA 7 


ga y otra para los textos. Por último, fs, ““Fullscreen”” (pantalla completa), reserva 
toda la pantalla para los gráficos de la tortuga. 


2.3 Un poco de entrenamiento con la tortuga 


Hasta aquí hemos visto en pantalla el texto y la tortuga, pero hasta este momento 
la tortuga no ha hecho nada de interés salvo aparecer y desaparecer. 


Si ahora escribe: 


?rt 30 [¡NTRO] 
? 


la tortuga gira un poco hacia la derecha. La sentencia rt 30 ha hecho que la tortuga 
gire hacia la derecha en el ángulo que indica el número que sigue a la propia instruc- 
ción. Esta instrucción realiza una acción, produce una consecuencia; es otro ejem- 
plo de primitiva de LOGO. 


A continuación vamos a ver qué sucede cuando repetimos dos veces la primitiva an- 
terior. Observe que el texto aparece en la parte inferior de la pantalla. 


?rt 30 [INTRO] 
?rt 30 [INTRO] 
? 


Una vez que el ordenador ha ejecutado la primera de las órdenes, el lado que inicial- 
mente estaba situado a la izquierda pasa a estar casi horizontal. La segunda primiti- 
va hace que la parte posterior de la tortuga quede vertical, con lo que la flecha apun- 
ta hacia la derecha. 


Escriba la siguiente orden: 


?1t 90 [INTRO] 
? 


y la tortuga queda de nuevo apuntando hacia arriba, como al principio. La figura 
2.1 muestra los efectos de esta sucesión de instrucciones. 


La primitiva que hace que la tortuga gire un ángulo de 90 grados hacia la izquierda, 
It, compensa las tres Órdenes previas con las que había hecho que la tortuga girase 
30 grados hacia la derecha cada vez. Las primitivas rt y lt son muy importantes en 
LOGO, al igual que la orden fd. Vamos a ver cómo funciona esta última: 


?fd 75 
?rt 90 
?fd 75 
? 
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En la figura 2.2 puede ver que la tortuga ha avanzado una distancia de 75 unidades 
en sentido vertical, a continuación ha girado hacia la derecha un ángulo de 90 gra- 
dos sexagesimales (que es la unidad angular que empleamos en LOGO) y finalmente 
ha vuelto a avanzar 75 unidades hacia la derecha en sentido horizontal. Fíjese que 
hemos dejado de repetir después de cada línea, pero no olvide pulsar 
esta tecla al final de cada una de las mismas. 


Fig. 2.1 


tí 
sexe 


Fig. 2.2 


BN 


Continúe moviendo la tortuga con: 


?rt 90 fd 75 rt 90 fd 75 rt 90 
ra 
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En este caso, la tortuga ha dibujado el perímetro de un cuadrado para quedar apun- 
tando en el mismo sentido que cuando comenzó, es decir, hacia arriba. 


El dibujo hubiera sido bastante más rápido si las primitivas fd, rt y It hubiesen esta- 
do en la misma línea. Escriba: 


cs 
? 


que se encarga de borrar el cuadrado que había dibujado en la pantalla, y a 
continuación: ? 


?fd 75 rt 90 fd 75 rt 90 td 75 
rt 90 fd 75 rt 90 
E 


Fíjese que, al no caber todas la primitivas en una sola línea, el ordenador salta a 
la siguiente y continúa escribiendo en ésta. Al final de la primera línea hay un sím- 
bolo ! para indicar que la secuencia de instrucciones no acaba ahí, sino que continúa 
en la siguiente línea. No he incluido este símbolo en el texto dado que, por causa 
del espacio libre y de otras circunstancias, puede haber pequeñas diferencias entre 
la presentación de las líneas en la pantalla de cada lector. 


Puede continuar el dibujo con las siguientes líneas: 


?It 135 

?fd 100 It 90 fd 100 

It 90 fd 100 It 90 fd 100 It 90 
? 


La primera línea hace que la tortuga gire 135 grados a la izquierda, pero vamos a 
fijarnos en la segunda, que produce un resultado un tanto sorprendente. 


La tortuga acaba de dibujar otro cuadrado, pero parte del mismo desaparece en el 
área que hasta ahora habíamos reservado para textos. Antes de hacer nada, pulse 
las teclas para reproducir la línea que acaba de escribir, de forma que si 
ahora pulsa conseguirá que la tortuga vuelva sobre sus pasos y repita el di- 
bujo del cuadrado. En todo momento, repite la última línea que ha escrito. 


Así que si ahora introduce: 


?cs fs It 135 


conseguirá que se borre la pantalla y que aparezca un cuadrado en diagonal al igual 
que antes, sólo que esta vez se puede ver el cuadrado completo. Vamos a detenernos 
un momento para estudiar qué ha sucedido. En primer lugar hemos borrado la pan- 
talla con cs; a continuación hemos pasado a una pantalla dedicada exclusivamente 
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a gráficos por medio de la orden fs. En tercer lugar hemos hecho que la tortuga 
gire 135 grados por medio de It 135, y finalmente, con [cTrL][Y], hemos repetido las 
instrucciones que se encargan de dibujar el cuadrado. 


La figura 2.3 muestra la versión de los cuadrados con pantalla dividida en pantalla 
de textos y de gráficos, mientras que la figura 2.4 muestra el cuadrado tal y como 
queda al final en la pantalla gráfica. 


Fig. 2.3 


rt 9 1d 75 rt 9 1d 75 rt 90 1d 75 rt 9 
14 90 £d 100 14 90 £d 100 1t 90 £d 100 1t 9 


Fig. 2.4 


A continuación escriba las siguientes líneas: 


?ss Cs 

?It 45 

?fd 200 rt 90 td 200 

rt 90 fd 200 rt 90 fd 200 rt 90 
? ' 


La primera línea devuelve a la pantalla dividida en pantalla de textos y de gráficos; 
la segunda línea se encarga de hacer girar la tortuga 45 grados a la izquierda. Final- 
mente, la tercera línea dibuja un cuadrado bastante grande, parte del cual se sale 
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de la pantalla, aunque la tortuga vuelve a aparecer para finalizar el dibujo. (Véase 
la figura 2.5) 


Fig. 2.5 


Dnnumnoumnnamno 


Fig. 2.6 


; AN 
DEA REnAREnae. » 


Si ahora escribe: 


2wrap 
? 


verá que todo queda como antes, pero, en esta ocasión, cuando la tortuga se sale 
por la parte superior de la pantalla reaparece por la parte inferior de la misma, con- 
tinúa dibujando la esquina del cuadrado hasta que se vuelve a salir y, finalmente, 
aparece de nuevo por la parte superior. La diferencia, evidentemente, procede de 
la orden wrap. Esta primitiva hace que la tortuga reaparezca por el lado de la pan- 
talla opuesto a aquél por el que sale, ya sea por arriba, por abajo o por los laterales. 
La figura 2.6 nos muestra el resultado. 


Haga otro experimento mientras continúa bajo los efectos de wrap: 
?cs 
?rt 25 fd 999 
? 


con lo que se borra la pantalla, la tortuga gira y traza una recta. 
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Sólo dibuja una recta, es cierto, pero fíjese que después de desaparecer por arriba 
y de reaparecer por abajo continúa saliendo y entrando en la pantalla. Pruebe va- 
rias distancias y ángulos de giro; seguro que consigue efectos muy interesantes. 


Ya he mencionado que este efecto se denomina ““wrap around””, que en inglés signi- 
fica ““envolver””?. Puede volver al modo de dibujo normal por medio de la orden 
window. Vamos a ver las diferencias entre ambos sistemas de dibujo. Escriba: 


?window 
?ss Cs 

?rt 25 fd 999 
? 


En esta ocasión la tortuga gira, dibuja una recta hasta salirse de la pantalla y ya no 
vuelve. Esta primitiva se denomina window porque considera la pantalla gráfica 
como una ventana que nos permite ver parte de una zona de dibujo mucho mayor. 
Normalmente, al trabajar en Dr LOGO se emplea este modo de dibujo. 


Existe otra forma de controlar los movimientos de la tortuga; para ello puede em- 
plearse la primitiva fence, que en inglés significa cerca o valla. Esta primitiva impi- 
de que la tortuga se salga de los bordes de la pantalla gráfica. Pruebe el siguiente 
ejemplo: 


?cs fence rt 25 fd 999 
Turtle out of bounds 
? 
Esta vez la tortuga no se ha movido de su sitio. fence hace que la tortuga calcule 


previamente a dónde va a ir a parar al realizar las instrucciones de una primitiva. 
En caso de que tenga que salirse de la pantalla, ni siquiera comienza el movimiento. 


En todo el capítulo siguiente vamos a trabajar en modo wrap, así que, para dispo- 
ner de una hoja limpia para nuestros próximos experimentos, escriba: 


?bye 

con lo cual se encontrará de nuevo con: 
A> 

Para volver a LOGO desde CP/M no tiene más que escribir: 
A>logo | 


y ya está en disposición de pasar al próximo capítulo. 


Capítulo 3 
Procedimientos en LOGO 


Hasta ahora ha tenido que escribir un montón de instrucciones para conseguir unos 
efectos que realmente no son muy espectaculares que digamos: un par de cuadrados 
nada más. Además, si su habilidad como mecanógrafo es parecida a la mía, segura- 
mente estará empezando a pensar que va a estar toda la vida cometiendo errores, 
pero no se preocupe. 


Lo más importante de LOGO no es precisamente los gráficos de tortuga; además 
los que hemos visto hasta ahora quedan muy por debajo de las posibilidades de 
LOGO. No cabe duda de que los gráficos de tortuga son importantes, pero no hay 
que sobrevalorarlos. La capacidad de proceso de listas tampoco es lo más impor- 
tante de LOGO; posiblemente usted ni siquiera haya oído hablar del tema. La ca- 
racterística más importante de LOGO es su capacidad de emplear procedimientos 
que son equivalentes a las primitivas, con la única diferencia de que los procedimien- 
tos los define el usuario. 


En primer lugar, con ellos se consigue reducir bastante la cantidad de instrucciones 
que deben escribirse. Aunque es un objetivo secundario, reconocerá que adquiere 
bastante importancia si se fija, por ejemplo, en la cantidad de trabajo ahorrado al 
usar una sola palabra, como puede ser fd. 


3.1 Tortugas viajeras 


En el capítulo anterior, ha tenido que escribir cuatro veces las instrucciones fd 100 
rt 90 para dibujar un cuadrado. La instrucción completa fue tan larga que el orde- 
nador tuvo que saltar a otra línea de pantalla para completar la sentencia, aunque 
finalmente trató ambas líneas como si fuesen una sola. Cualquier lenguaje con un 
poco de lógica debe tener en cuenta el carácter repetitivo de las instrucciones, en 
nuestro caso fd 100 rt 90. Dr LOGO es un lenguaje bastante lógico. 


En LOGO no tiene más que escribir el par de primitivas fd 100 rt 90 una sola vez 
y solicitar a continuación al ordenador que las repita cuatro veces. Escriba: 


cs 
?repeat 4 [fd 100 rt 90] 
7 
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Al introducir la primera línea, cs, la pantalla se divide en pantalla de textos y de 
gráficos (a no ser que previamente hubiese solicitado que la pantalla completa se de- 
dicase a pantalla gráfica). Al introducir la segunda línea es cuando el ordenador 
dibuja el cuadrado. 


El ordenador ha repetido cuatro veces todo lo que se encuentra dentro de los corche- 
tes, a lo que suele denominarse ““lista”?. Es costumbre encerrar entre corchetes to- 
dos los elementos de la lista, en nuestro caso [fd 100 rt 90]. En esta ocasión puede 
decirse que se trata de una lista de instrucciones. 


A continuación vamos a ver un ejemplo similar que cuenta con una lista de instruc- 
ciones prácticamente idéntica a la anterior: 


?cs repeat 360 [fd 1 rt 1] 
? 


Al observar el lento avance de la tortuga no puedo evitar que me venga a la memoria 
la fábula de Esopo “La Liebre y la Tortuga””; creo que la de Esopo correría más 
que la nuestra. Esta vez la tortuga recorre un camino circular, pero aunque el dibu- 
jo final parece una circunferencia, realmente no lo es. No es más que un polígono 
regular de 360 lados. 


No debe sorprender que el dibujo final se parezca tanto a una circunferencia; vamos 
a dar un par de vueltas a un viejo tópico. Un polígono regular de nueve lados se 
parece más a una circunferencia que, por ejemplo, un cuadrado, así que un polígono 
de 360 lados debe parecerse mucho más todavía. Como en muchas otras ocasiones, 
es muy difícil distinguir la realidad de algo que no es más que una aproximación 
a la misma. 


Antes de borrar la circunferencia que tiene en pantalla, dé las siguientes 
instrucciones: 


?repeat 360 [fd —1 rt 1] 
? 


Esta vez la tortuga dibuja otra circunferencia a la izquierda de la anterior, con lo 
que obtendrá una imagen que recuerda a un buho que esté mirando. La figura 3.1 
muestra el buho... un poco vizco, ¿verdad? 


Si quiere que la tortuga sea un poco más rápida, escriba 


?cs 

?ht 

?repeat 360 [fd 18 rt 18] 
? 


y sin esperar siquiera a despedirse, la tortuga desaparece como consecuencia de la 
orden ht, que significa ““hideturtle”” (ocultar la tortuga). De nuevo obtiene la cir- 
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cunferencia anterior, esta vez un poco más rápido, aunque de todas formas la velo- 
cidad no ha sido ninguna maravilla. Ya sabe que esta circunferencia realmente no 


es más que un polígono regular de 360 lados, pero ¿realmente son necesarios tantos 
lados para obtener una circunferencia aceptable? 


es Fig. 3.1 


proc Mo La o 


La figura 3.2 muestra un polígono de 20 lados que también se parece bastante a una 
circunferencia. Para obtener una ““circunferencia”” de 20 lados, aproximadamente 
del mismo tamaño que el de 360 lados, hay que modificar la distancia de avance, 
es decir, el parámetro de la primitiva fd, y el ángulo de giro. La nueva circunferen- 
cia tiene 20 lados, esto es, 18 veces menos que el de 360, así que cada lado debe ser 
unas 18 veces más largo que los lados del original. Por tanto, se debe realizar 20 
veces el par de instrucciones fd 18 rt 18. 


'd) Fig. 3.2 


pt 
. 8ut 20 11d 18 rt 10) 
hl 


Para obtener la circunferencia/polígono de 20 lados escriba: 


cs st 
?repeat 20 [fd 18 rt 18] 
? 
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El resultado es la figura 3.2. El ordenador ha dibujado esta circunferencia en mu- 
cho menos tiempo que en el primer ejemplo, dado que ha tenido que realizar bastan- 
tes menos cálculos: unas veinte veces menos. Fíjese que la primitiva st, que quiere 
decir ““showturtle”” (mostrar la tortuga), ha vuelto a colocar la tortuga en la pantalla. 


Si deja en pantalla la ““circunferencia”” de 20 lados y escribe las siguientes líneas: 


?ht 
?repeat 20 [bk 18 rt 18] 
? 


el ordenador dibuja otro círculo a la izquierda del anterior. Esta vez no habrá visto 
a la tortuga recorrer su camino; probablemente lo haya hecho, pero al quitar la tor- 
tuga de pantalla con ht, no se ha dado cuenta. La orden bk 18 (retroceder 18 unida- 
des) es equivalente a fd 18, pero en sentido contrario. La figura 3.3 muestra las dos 
circunferencias de 20 lados; es interesante compararlas con las de 360 lados. 


Fig. 3.3 


Yes st 
£ 20 [fd 18 rt 18) 
gra 20 [bk 18 rt 18) 


Intente practicar con este sistema de repetición de instrucciones para dibujar un po- 
lígono de 10 lados y otro de 5 lados. En seguida comprobará si lo ha conseguido, 
porque en ese caso la respuesta debe aparecer en pantalla. De todas formas, antes 
de intentarlo escriba lo siguiente: 


?st 


para hacer que la tortuga vuelva a la pantalla. 


3.2 Estrellas fugaces 


Hasta ahora hemos conseguido dibujar varias circunferencias por medio de instruc- 
ciones del tipo fd :longitud rt :angulo, en las que las variables :longitud y :angu- 
lo cambiaban en cada ejemplo. Vamos a emplear el mismo sistema con las siguien- 
tes instrucciones: 
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tcs 

?st 

?repeat 5 [fd 100 rt 144] 
? 


Esta vez el resultado no ha sido una circunferencia, sino una estrella. Se trata de un 

pentágono estrellado, y no se parece en absoluto a un círculo. (Véase la figura 3.4) 

Vamos a probar las siguientes primitivas para dibujar una estrella de ocho puntas: 
?cs 


?repeat 8 [fd 100 rt 135] 
? 


Antes de seguir adelante vamos a intentar averiguar de dónde ha salido todo esto. 
Es conveniente que compare su estrella con la que aparece en la figura 3.5. 


Fig. 3.4 


%s 
que 5 (£d 100 rt 144] 


52 


Fig. 3.5 | poe 8 140 100 198 


En ambas estrellas se ha repetido una lista de instrucciones, pero con una diferencia 
fundamental: el ángulo girado. 


También es diferente el número de veces que se repite la lista de instrucciones, pero 
esto no tiene tanta importancia. Además es conveniente fijarse en un pequeño deta- 
lle: si calcula 5* 144 obtendrá 720; por su parte 8*135 son 1440. Tanto 720 como 
1440 son múltiplos de 360. ¿A qué se debe esta coincidencia y por qué ambos valo- 
res son múltiplos diferentes de 360? 


Ahora escriba lo siguiente: 


7cs repeat 200 [fd 100 rt 135] 
? 
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y Observe que la tortuga vuelve a dibujar la estrella de ocho puntas, pero esta vez 
se pasea un buen rato por encima de las líneas que forman la estrella antes de que 
reaparezca el signo de interrogación. Cuando, finalmente, la tortuga se queda quie- 
ta y la interrogación vuelve a aparecer en la parte baja de la pantalla que reservamos 
para textos, fíjese que el dibujo obtenido es exactamente igual al conseguido única- 
mente con 8 repeticiones. Esta vez la tortuga ha recorrido el dibujo 25 veces, dado 
que 200/8=25. Sin embargo, una vez que la tortuga recorre por primera vez la es- 
trella, las repeticiones no afectan para nada a la figura. 


Si ahora modifica la línea anterior (el sistema más comodo es emplear [CTRL] Y], las 
teclas de movimiento del cursor y la de borrado) para dejarla así: 


?cs ht repeat 200 [fd 100 rt 135] 
? 


volverá a obtener la misma estrella. Parece que no ha cambiado nada, hasta que 
vuelve a aparecer la interrogación. Puede volver a ejecutar la misma línea y detener 
la repetición del dibujo en cualquier momento pulsando simultáneamente las teclas 
CTRL y G (en el futuro lo indicaremos abreviadamente con [cTrL][[G)). El ordena- 
dor deja de dibujar y LOGO envía el siguiente mensaje: 


Stopped! 
? 


El mismo efecto se consigue pulsando la tecla [ESC]. Si modifica un poco la línea 
anterior: 


?cs repeat 200 [fd 150 rt 75] 
? 


esta vez habrá obtenido una figura bastante más complicada (véase la figura 3.6), 
que no hace más que confirmar que, lo que en un principio puede parecer bastante 


Fig. 3.6 


Sonat 20 104190 rt 78 
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complicado de programar, en la práctica puede ser de lo más sencillo. La figura 
que ha obtenido no es más que una estrella con muchas puntas, para lo cual se ha 
repetido muchas veces la secuencia de instrucciones que hace que la tortuga avance 
y gire a la derecha. 


3.3 Cómo definir una estrella 


Aunque es posible estudiar las consecuencias de emplear diferentes ángulos y longi- 
tudes sin más que escribir variantes de las instrucciones anteriores, hay que tener 
en cuenta que LOGO ha sido creado de forma que haga las cosas lo menos compli- 
cadas posible; con este lenguaje se obtiene el mismo resultado con un método mucho 
más sencillo. 


En primer lugar, escriba la siguiente línea; fíjese cómo cambia el mensaje inductor, 
es decir, la interrogación: 


?to estrella :lado :angulo 
> 


Es este momento aparece otro mensaje inductor, el símbolo >, que le indica que 
se encuentra en modo de definición. LOGO pasa a modo de definición al recibir la 
orden to. 


Ahora escriba el siguiente texto, teniendo cuidado de no equivocarse. Para dejar 
las cosas un poco más claras he repetido la primera línea con el símbolo **?””. 


?to estrella :lado :angulo 
>repeat 200 [fd :lado rt :angulo] 
>end 

estrella defined 

? 


La parte comprendida entre to y end es la definición del procedimiento llamado es- 
trella. LOGO reconoce el final de dicho procedimiento al encontrarse en una línea 
únicamente la palabra end. Por su parte, sabrá que todo ha funcionado correcta- 
mente cuando LOGO envíe el mensaje estrella defined; a continuación LOGO ha- 
ce que vuelva a la pantalla el mensaje inductor habitual, la interrogación, haciendo 
desaparecer el símbolo “*>””. 


Finalmente, para comprobar que ha realizado la definición correctamente no tiene 
más que escribir: 


?po “estrella 

to estrella :lado :angulo 
repeat 200 [fd :lado rt :angulo] 
end 

? 
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aunque si comete un error, por mínimo que sea, como por ejemplo: 


?po estrella 
Not enough inputs to estrella in estrella: po estrella 
? 


LOGO le dirá que algo no marcha bien. 
De momento es suficiente con que tenga en cuenta que: 


1. Un símbolo de dos puntos (:) delante de un nombre indica que estamos hablando 
del valor de la variable de que se trate. 


2. Unas comillas (**) delante de un nombre indican que nos referimos al nombre en 
SÍ. 


3. El nombre solo, sin que le acompañe ningún símbolo, indica que nos referimos 
a la acción de un procedimiento. 


Al pedir al ordenador un listado de la definición de “estrella por medio de la orden 
po, LOGO interpreta que estamos hablando de algo que se llama estrella. 


Si cometemos un error y solicitamos al ordenador un listado de estrella sin incluir 
las comillas, LOGO piensa que nos estamos refiriendo a la acción del propio proce- 
dimiento llamado estrella. Esto explica su extraña conducta al decirnos que faltan 
datos por medio del mensaje **Not enough inputs...””, dado que LOGO supone 
que lo que le estamos pidiendo es que realice el procedimiento estrella, y una parte 
del procedimiento en sí es tomar los datos necesarios. Más adelante seguiremos ha- 
blando de este tema. 


En caso de que haya cometido algún error al definir estrella, deberá editar el texto 
para corregirlo. Tendrá que aprender antes o después cómo se edita un procedi- 
miento en LOGO, así que, aunque no haya cometido ningún error, escriba la si- 
guiente línea: 


?ed “estrella 


con lo que la pantalla queda vacía y se entra en el modo de edición (véase la figura 
3.7). En la parte superior de la pantalla verá: 


to estrella :lado :angulo 
repeat 200 [fd :lado rt :angulo] 
end 


Ahora se puede modificar la definición de estrella empleando para ello las teclas 
de movimiento del cursor, las de borrado y los caracteres de inserción. Al finalizar 
las modificaciones pulse para salir del modo de edición, con lo que recibirá 
el mensaje: 


estrella defined 
? 
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Conviene que practique cómo se pasa del modo normal al de edición y a la inversa; 
si no quiere volver a copiar el procedimiento con puede emplear la tecla [ESC], 
con lo que obtendrá: 


Stopped! 
? 


rat MO cid tado re “mg! 


Fig. 3.7 


3.4 Ha nacido una estrella 


Hay dos valores que van ligados al procedimiento estrella: el :lado y el :angulo. 
Con el primero se fija la longitud que debe avanzar la tortuga, mientras que el se- 
gundo define su ángulo de giro. 


A continuación vamos a ver de nuevo el procedimiento estrella para que sirva de 
referencia: 


to estrella :lado :angulo 
repeat 200 [fd :lado rt :angulo] 
end 


Junto a la instrucción fd, que ya conocemos, nos encontramos la variable :lado, 
así que :lado debe representar una longitud. Por su parte, :ángulo aparece junto 
con la instrucción rt, así que debe tratarse de un ángulo. Juegue un poco con estre- 
lla; dé las siguientes instrucciones: 


?cs 

?estrella 100 144 

? > 
con lo que debe obtener la estrella de cinco puntas que ya le es familiar, porque ha 
movido la tortuga con la instrucción fd 100 rt 144 al hacer :lado igual 100 y :angulo 
igual a 144. El procedimiento estrella necesita dos datos que le son enviados en 
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dos variables, :lado y :angulo. LOGO comienza a ejecutar el procedimiento y sus- 
tituye :lado por su valor en todos los lugares en que aparezca. Los datos que apare- 
cen en un procedimiento también se denominan “parámetros”. 


En el resto del capítulo vamos a emplear la orden wrap que hemos visto anterior- 
mente; para ello escriba las siguientes líneas: 


?wrap cs 
?estrella 100 144 
?estrella 150 144 
? 


que mantienen a la tortuga ocupada durante un buen rato dibujando dos estrellas 
de cinco puntas, una mayor que la otra, dado que la primera tiene lados de 100 uni- 
dades de longitud mientras que la segunda tiene lados de 150 unidades. Fíjese que 
ambas formas son iguales, únicamente se diferencian en el tamaño; esto se debe a 
que el primer parámetro (:lado) pasa de valer 100 a 150 mientras que el segundo 
(:«ángulo) vale 144 en ambos casos. Compare el resultado que ha obtenido con la 
figura 3.8. 


Fig. 3.8 


¡E 181 


Es muy probable que usted no haya conseguido definir el procedimiento sin cometer 
ningún error al escribir las instrucciones. A veces puede darse cuenta de los errores, 
pero otras veces no... 


?cs 

?estrella 100 144 

Il don't know to repear in estrella: repear 200 
[fd :lado rt :angulo] 

? 


Aunque no lo parezca, LOGO envía estos mensajes con la intención de colaborar 
en lo que pueda. Con este mensaje LOGO indica que no sabe qué quiere decir la 
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palabra repear, pero ¿dónde está y qué significa repear? Siempre que reciba el 
mensaje | don't know how to..., que quiere decir ““No sé como hacer ...””, con- 
viene escribir inmediatamente: 


?ed 


con lo que se encontrará de nuevo en el editor. LOGO indica con el cursor dónde 
se encuentra el posible error. En nuestro ejemplo la pantalla sería la siguiente: 


to estrella :lado :angulo 
repear 200 [fd :lado rt :angulo] 
end 


con lo cual nos damos cuenta de que hemos introducido repear en lugar de repeat 
y se ha producido el error; LOGO no sabe que singifica repear. Modificar la letra 
en cuestión es una tarea sencillísima, así que, ¿por qué no hace unos cuantos experi- 
mentos con el editor creando errores parecidos? 


Otro error posible es el siguiente: 


?cs 

?estrella 100 144 

| don't know how to rt:angulo in estrella: repeat 
200 [fd :lado rt:angulo 

? 


que hace que la tortuga se detenga nada más dibujar la primera línea ascendente. 
Hemos omitido un elemento muy importante: el espacio entre rt y :ángulo. En LO- 
GO colocamos un espacio entre las distintas palabras para separarlas. 


Dependiendo de las circunstancias en que nos encontremos, hay otras formas de se- 
parar las palabras que veremos un poco más adelante al hablar de los “*delimitado- 
res””. Una de las formas de separación con el editor es emplear corchetes cuadra- 
dos, []; esta característica tiene en cuenta que en cualquier momento podemos nece- 
sitar editar varios procedimientos, cuyos nombres colocaremos en la lista. Los cor- 
chetes cuadrados delimitan una lista. 


?edl estrella] 
La línea anterior también podía haber sido escrita así: 
?ed [estrella] 


con un espacio entre la primitiva y el corchete, con lo que queda bastante más fácil 
de leer. 


En el caso de | don't know how to rt:angulo in estrella: ... el editor presentará 
la siguiente pantalla: 
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to estrella :lado :angulo 
repeat 200 [fd :lado rt:angulo] 
end 


que no debe sorprenderle lo más mínimo si ha seguido hasta aquí todo el proceso. 


Ahora escriba la siguiente línea: 
?estrella100 144 


Independientemente de que haya definido el procedimiento correctamente, habrá 
obtenido un error, que en este caso en particular es: 


Il dont't know how to estrella100 
? 


que le indica que falta un espacio entre estrella y 100. La mayor parte de los erro- 
res que se suelen producir en LOGO no son más que la omisión de espacios entre 
los componentes de una sentencia. 


3.5 Datos y parámetros 


Hay otro error bastante frecuente que también se debe a la omisión de un espacio 
entre dos elementos; es el siguiente: 


?estrella 100144 
Not enough inputs to estrella in estrella: estrella 100144 
? 


Este error se debe a que Dr LOGO esperaba varios números después de estrella; 
el procedimiento emplea dos parámetros y en este caso no hemos enviado más que 
un dato, 100144, al olvidar el espacio que separa los dos valores. Recordemos que 
““parámetro”” es el nombre técnico de cada uno de los datos con que trabaja el 
procedimiento. 


El procedimiento que hemos denominado estrella emplea dos parámetros que de- 
ben incluirse a continuación del nombre del procedimiento; se trata de las variables 
que hemos llamado :lado y :angulo. De la misma forma, la primitiva fd tiene un 
solo parámetro: el número que sigue a la instrucción y que representa la longitud 
de avance. Por ejemplo, en fd 90 el valor del parámetro es 90 unidades. Las primi- 
tivas rt y It emplean también un solo parámetro, que en ambos casos representa el 
ángulo de giro. 


La primitiva repeat, que también forma parte de la definición del procedimiento, 
es bastante más compleja que fd o rt. Esta primitiva necesita dos parámetros. Por 
ejemplo, en repeat 360 [fd 1 rt 11 el primer parámetro es 360 e indica el número 
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de veces que queremos que se repita la lista de instrucciones que aparece a continua- 
ción. El segundo parámetro es la propia lista de instrucciones, y es un poco más 
complicado que una letra o un número. 


Cuando ejecutamos el procedimiento, como por ejemplo en el siguiente caso: 


?estrella 100 144 
? 


LOGO sustituye realmente el nombre del parámetro :lado por el valor 100 en todo 
el procedimiento. Así, al leer fd :lado LOGO interpreta fd 100. Como el paráme- 
tro :angulo toma el valor 144, rt :angulo es equivalente a rt 144. 


El valor 100 que hemos asignado a :lado al ejecutar el procedimiento no es válido 
más que para dicho procedimiento, es decir, si tenemos otra sentencia que contenga 
el término :lado fuera de estrella, su valor no resulta afectado. Por esta causa se 
dice que los parámetros tienen validez *“local”” o que están limitados al procedimien- 
to en cuestión. 


Dada la flexibilidad que permite el uso de parámetros, podemos probar cualquier 
combinación de números con el procedimiento estrella. Vamos a probar el siguien- 
te par de parámetros: 


?wrap fs cs estrella 800 175 
? 


Gracias a los efectos que crea la primitiva wrap, se obtiene un dibujo bastante cu- 
rioso que ilustramos en la figura 3.9. En una ocasión mi hija y una amiga suya in- 
ventaron el ““Juego de los Teléfonos”” haciendo experimentos con el procedimiento 
estrella. 
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El juego consiste en tomar los últimos siete dígitos de un número de teléfono y colo- 
carlos como parámetros al ejecutar el procedimiento estrella; hay quien dice que 
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el resultado tiene una cierta semejanza con el carácter del propietario del número 
en cuestión. Por ejemplo, el número de Amsoft en Inglaterra es 027 230222; toma- 
mos los últimos siete dígitos y los colocamos en la siguiente sentencia: 


?fs cs estrella 723 0222 
? 


El número de teléfono de Amsoft demuestra que su aspecto es tan brillante como 
el de la figura 3.10. 


Fig. 3.10 
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Juegue con otros números de teléfono para ver si el resultado le recuerda a alguien 
en particular. Es curioso cómo algunas personas dan la misma sensación de barullo 
que sus números de teléfono. 


Ahora que ya tiene un poco de experiencia en lo fácil que resulta cometer errores, 
puede incluir un tercer parámetro en el procedimiento estrella: el número de veces 
que debe repetirse la lista de instrucciones. En esta ocasión la primera línea de la 
definición pasa a ser la siguiente: 


?to estrella :lado :angulo :veces 
> 


No se preocupe en caso de que no le salga bien; en el próximo capítulo volveremos 
a tratar en profundidad este procedimiento deteniéndonos a estudiar qué sucede 
cuando cometemos errores en LOGO. Pero, antes de adentrarnos en este tema, va- 
mos a desviarnos ligeramente de nuestro camino para estudiar cómo grabar en disco 
nuestros pequeños logros. También vamos a ver qué relación hay entre LOGO y 
CP/M. 


3.6 Cómo grabar en disco el trabajo realizado 


Hasta ahora ha escrito unos cuantos procedimientos bastante cortos que el ordena- 
dor guarda en la zona de memoria reservada para procedimientos y variables. En 
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esta misma zona el ordenador guarda el proceso seguido para crear sus programas. 


Puede averiguar cuánta memoria queda libre sin más que escribir la palabra nodes: 


Al preguntar al ordenador por primera vez cuánta memoria queda, la respuesta es 
1578 nodos (seguramente el valor que usted ha obtenido no es el mismo); no confun- 
da el número de nodos con la memoria en bytes; realmente es mucho más sencillo 
medir la cantidad de memoria en nodos. Al realizar la segunda pregunta, nos da- 
mos cuenta de que el número de nodos ha descendido tres unidades simplemente por 
haber formulado la pregunta ¿Esto quiere decir que nos vamos a quedar sin memo- 
ria según vamos dando instrucciones al ordenador? 


Ejecute la siguiente instrucción: 
?repeat 2000 [pr nodes] 


En la pantalla aparece una sucesión de números que van descendiendo lentamente 
hasta llegar aproximadamente a cien nodos. En a este punto LOGO se detiene, pa- 
rece que se queda pensando un rato y a continuación sigue con la serie de números 
descendentes, sólo que ha vuelto a comenzar desde un número bastante más alto. 
Cuando LOGO se detuvo, lo que realmente estaba haciendo era buscar todas las po- 
siciones de memoria reutilizables. 


LOGO cuenta con una primitiva con la que puede solicitarse una reorganización de 
la memoria: 


?nodes 

1123 

?recycle nodes 
1730 

? 


Cuando LOGO recibe la orden recycle, comienza a recuperar posiciones de memo- 
ria y a reorganizar la misma, para lo cual se produce una pequeña pausa. La próxi- 
ma vez que pregunte cuántos nodos quedan libres obtendrá una respuesta bastante 
más alta que antes. 


Al conectar el ordenador y comenzar a trabajar con LOGO, el número de nodos 
es superior a dos mil; pero, a medida que van creándose procedimientos y asignán- 
dose variables, el número de nodos disminuye y no volverá al valor inicial aunque 
se utilice la instrucción recycle. LOGO consume nodos para almacenar la informa- 
ción que va introduciendo; hay que tener en cuenta que cuando da a LOGO de Ams- 
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trad la orden de grabar la información en disco, éste graba toda la información in- 
discriminadamente. Esto quiere decir que para grabar sus procedimientos tendrá 
que grabar todo lo que hay en memoria. 


Grabe sus primeros procedimientos llamando ejemplo al fichero en que va a colo- 
carlos. Escriba la siguiente secuencia de instrucciones: 


?save “ejemplo 
?dir 
[EJEMPLO] 
?load “ejemplo 
xxx defined 
yyy defined 

? 


dir es una primitiva de LOGO que nos da una lista de los ficheros LOGO que se 
encuentran en el disco, mientras que load es la orden que nos permite leer un fichero 
de procedimientos. La línea xxx defined nos informa de los procedimientos al leer 
sus definiciones en el disco. 


Es conveniente que lea el apéndice “Discos y LOGO”, en el que aparecen más deta- 
lles sobre este mismo tema. 


Capítulo 4 
Exploración de LOGO 


Hay un viejo dicho que con frecuencia ignoramos u olvidamos, y la verdad es que 
es absolutamente cierto: *“*Aprendemos de nuestros errores”. 


Además, con mucha frecuencia pensamos que un error es algo malo, y en caso de 
cometerlo casi siempre intentamos ocultarlo o ignorarlo; casi nunca estudiamos sus 
causas y consecuencias. Hay otro dicho popular, ““Errar es humano, olvidar divi- 
no””, pero esto no quiere decir que tengamos que echar tierra sobre nuestros errores 
como si fuesen algo condenable. 


Los diseñadores de LOGO intentaron conseguir un lenguaje que ayudara al usuario 
a aprender de los errores que cometiese al explorar las características del lenguaje, 
y lo han conseguido. 


4.1 Aprender de los errores 


Los creadores de LOGO se dieron cuenta desde un principio de que, para sacar algo 
en claro de nuestras propias equivocaciones, es preciso que la información que nos 
dé LOGO sobre las mismas sea lo más constructiva posible. En algunas ocasiones 
puede parecer que la ayuda que nos proporciona LOGO no es ni mucho menos tan 
útil como cabría esperar, pero no hay duda de que la intención de LOGO es en todo 
momento ayudar en lo que pueda. Recuerde que los creadores de LOGO también 
son humanos. 


LOGO da mucha importancia a este tipo de ayuda constructiva. Todos confiamos 
en que con el paso del tiempo cometeremos menos errores, pero también es de espe- 
rar que cada vez nos ocupemos de cosas más difíciles que exijan más atención. Aun- 
que no cabe duda de que con el tiempo irá avanzando en el arte de la programación, 
sus avances no servirían de nada si al cometer una equivocación no cuenta con nada 
que le explique cuál es el origen de la misma. No es que LOGO le anime a cometer 
errores, lo que realmente intenta es inducirle a emprender tareas más complicadas, 
echándole una mano cada vez que se equivoque... y sin duda siempre surgirá algún 
fallo. 


LOGO tiene como objetivo desarrollar sus capacidades como programador, ayu- 
dándole al mismo tiempo a realizar las tareas que le apetezca; por tanto, el hecho 
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de tener que acudir constantemente a un programador con más experiencia para que 
le ayude a descubrir los gazapos que ha cometido, va en contra de este objetivo. Los 
diseñadores de LOGO creen firmemente que aprendemos fundamentalmente a par- 
tir de nuestro propio esfuerzo. Por esta misma razón no busque en esta Guía res- 
puestas definitivas y concluyentes; por el contrario, tenemos la intención de que le 
anime a plantearse preguntas interesantes y a responderlas por sí mismo. 


Desde luego, no se trata de prescindir totalmente de las respuestas y sugerencias que 
puede proporcionar un lenguaje de programación. Los creadores de LOGO han 
pretendido que usted haga pruebas y experimentos y que cuente con la posibilidad 
de cometer errores para aprender de ellos, introduciéndose en un proceso constructi- 
vo, que es la depuración de sus propios programas. 


Uno de los creadores de LOGO, Seymour Papert, ha señalado con toda razón: “*... 
todos aprendemos de nuestros propios errores, pero en LOGO la pregunta más im- 
portante no es ““¿Funciona correctamente?””, sino “¿Cómo puedo arreglarlo?””, 
aunque, por supuesto, es muy importante que al final el programa funcione””. (De 
Mindstorms, Harvester Press). 


Trate de convencerse de que cometer errores no es tan importante como disfrutar 
corrigiéndolos; este proceso es un ejercicio formativo muy importante. Aprender 
a corregir errores propios es una forma de aprender a resolver problemas, y los ex- 
pertos en la resolución de problemas son muy apreciados en nuestra sociedad actual. 
Es cierto que estos expertos son muy escasos hoy en día; probablemente esto se deba 
a que desde pequeños nos han enseñado a tener miedo a los errores y a sentirnos 
culpables cuando los cometemos. Un miedo exagerado a los propios fallos ahoga 
la innovación y la creatividad. 


4.2 Cómo descubrir nuestros errores 


Cada vez que LOGO no comprende sus instrucciones lo comunica por medio de un 
mensaje. 


Cuando esté usando LOGO puede suceder que diga algo al ordenador que, a pesar 
de todas las palabras que para él tienen significado, sea una bobada. Escriba la pa- 
labra bobada nada más poner en marcha LOGO para ver qué sucede: 


?bobada 
I don't know how to bobada 
?.contents 


A continuación aparece en pantalla una lista bastante larga con los contenidos del 
área de memoria reservada para LOGO; en algún lugar de esta lista debe aparecer 
la palabra bobada. A pesar de que LOGO no reconozca esta palabra como una 
instrucción, primitiva, procedimiento o variable, el ordenador la ha incorporado al 
área de trabajo. 
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Lo que ha sucedido es que LOGO, o la parte del sistema que denominamos ““intér- 
prete””, sabe que ha pulsado una serie de caracteres que constituyen la palabra bo- 
bada. El intérprete de LOGO tiene en todo momento una lista de las palabras que 
reconoce el lenguaje, en la que junto a cada palabra aparece una descripción de lo 
que se supone que debe suceder cuando la empleamos. Esto quiere decir que cada 
palabra cuenta con ciertas propiedades; en capítulos posteriores veremos más deta- 
lles sobre este tema. Por ahora la palabra bobada no tiene ninguna propiedad. 
Las palabras reconocidas, junto con sus propiedades, constituyen el ““área de traba- 
jo”? de LOGO. 


Desde el momento en que entra en funcionamiento, LOGO conoce las propiedades 
de unas palabras determinadas; cada vez que le decimos una **bobada” al ordena- 
dor, LOGO la toma como una palabra nueva y la guarda en su lista. 


Cuando se introduce la palabra bobada, el intérprete de LOGO no la encuentra en 
su lista, pero a partir del momento en que se ha empleado la palabra por primera 
vez, incluso de una forma accidental, LOGO añade bobada a su lista (aunque sin 
asignarle ninguna propiedad). Como es lógico, LOGO no puede emplear la palabra 
bobada porque no se le ha dicho cuáles son las propiedades asociadas a dicha 
palabra. 


Por eso introducir una palabra, en este caso bobada, sin decir antes a LOGO qué 
es lo que tiene que hacer con ella, constituye un error de programación. A pesar 
de todo, LOGO intenta explicar por qué no puede colaborar con nosotros. Se trata 
de un lenguaje muy benévolo, ¿verdad? 


Ahora escriba la siguiente línea: 
?fd 60 fd60 


La pantalla se borra, LOGO dibuja una línea y le envía un mensaje. Responda con 
otra línea: 


I don't know how to fd60 
?ts .contents 


En la respuesta hemos incluido ts (pantalla de textos) para que los contenidos de 
la pantalla no se salgan por la parte inferior de la misma, como sucedería si trabajá- 
semos en una pantalla dividida. Si realiza un examen con detenimiento se dará 
cuenta de que el intérprete ha añadido la palabra fd60 a la lista. 


Después de realizar una sesión de trabajo larga con LOGO, es interesante analizar 
los contenidos del área de trabajo, con .contents al igual que antes, para ver cuán- 
tos errores de mecanografía se ha cometido. La diferencia entre fd 60 y £d60 es evi- 
dentemente el espacio que separa fd y 60. El uso de espacios en LOGO tiene una 
importancia crucial; no se puede colocar espacios dentro de una misma palabra, por 
eso hay que emplear el subrayado, como por ejemplo *“'dos__palabras”” y no 
““dospalabras””. 
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En el ejemplo anterior, LOGO reconoce fd como una primitiva cuya función es 
“*mover la tortuga hacia delante el número de unidades que indica el valor que está 
a continuación””. El valor que sigue a la primitiva en el primer caso es 60, por eso 
la tortuga avanza 60 unidades; pero fíjese que LOGO no admite las siguientes 
instrucciones: 


?fd sesenta 

I don't know how to sesenta 
?fd “sesenta 

fd doesn't like sesenta as input 
?fd :sesenta 

sesenta has no value 

? 


Las razones que hay detrás de cada una de las respuestas son las siguientes: 


— sesenta Se supone que es un procedimiento o una primitiva, dado que no 
va precedido de comillas ni de dos puntos, pero el intérprete de LO- 
GO no encuentra tal procedimiento en su lista. 


— “sesenta Se supone que es un nombre porque va precedido de comillas, pero 
un nombre no es un valor a no ser que se trate de un número. 


— :sesenta — Sesupone que se que se refiere al valor de un objeto conocido como 
sesenta porque va precedido de dos puntos, pero, como tal objeto 
no existe, no puede tomar ningún valor. 


Más adelante, en varios puntos de la Guía veremos con más detalle todas estas 
distinciones. 


¿Qué sucedería si no se colocase ningún parámetro a continuación de fd? 
Averígielo: 


?fd 
Not enough inputs to fd 
E 


Está claro que LOGO espera algún valor a continuación de fd, y en este caso no 
se ha incluido ninguno. LOGO emplea el término *““inputs”” en lugar de la expre- 
sión “valores que deben seguir a ...””, que aunque es más larga no deja ninguna 
duda sobre su significado. El intérprete de LOGO espera un parámetro a continua- 
ción de fd y no ha recibido ninguno. 


Si usted no intentó escribir el procedimiento: 
?to estrella :lado :angulo :veces 


en el capítulo 3, éste es un buen momento para hacerlo. Recuerde que no tiene que 
preocuparse de cometer errores; usted puede y debe aprender algo de ellos. 
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4.3 Nombres, objetos y procedimientos 


Recuerde que nuestro propósito era ampliar el procedimiento estrella para que em- 
please tres parámetros, lo que permitiría cambiar el número de veces que LOGO re- 
pite la lista de instrucciones. Recuerde también que la lista de instrucciones era [fd 
:lado rt :angulo], e iba precedida de repeat 200, en la que 200 representa el número 
de veces que se repite la lista de instrucciones. 


La solución es muy sencilla. Basta con escribir: 


?to estrella :lado :angulo :veces 
>repeat veces [fd :lado rt :angulo] 
>end 

estrella defined 

? 


Ahora, para hacer que estrella dibuje un cuadrado de 100 unidades de lado no tiene 
más que dar la instrucción: 


?estrella 100 90 4 

| don't know how to veces in estrella: repeat veces 
[fd :lado rt :angulo] 

7 


con lo que observará que ha cometido algún error al definir estrella. 


Para facilitar un poco la comprensión de este error, vamos a detenernos un momen- 
to a investigar cuáles son las diferencias entre el nombre de un objeto (por ejemplo 
yo), el valor contenido en el objeto (programador) y el nombre de un procedimien- 
to. Para iniciar nuestro análisis escriba las siguientes instrucciones: 


7 yo 

yo 

?yo 

| don't know how to yo 
?:yo 

yo has no value 

?make “yo “programador 
?:yo 

programador 

?make :yo “estupendo 
?:programador 
estupendo 

pá 


En este ejemplo hay siete líneas de instrucciones que comienzan con el símbolo “*?””. 
Vamos a estudiarlas en el orden en que aparecen: 
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1. La palabra ”yo se distingue por ir precedida de comillas. Cuando una secuencia 
de caracteres que no contenga espacios intercalados vaya precedida por el símbo- 
lo ”, el ordenador considera el resto de caracteres como una palabra o unidad. 
Una palabra no es más que una secuencia de caracteres sin espacios intercalados, 
así que basta con colocar delante el símbolo *” para definir su estado. Cuando 
escribe “yo, LOGO trata la secuencia como si fuera la palabra yo y por tanto 
escribe en pantalla precisamente yo. 


2. Si escribe yo sin ningún signo delante, LOGO considera la secuencia de caracte- 
res como el nombre de un procedimiento. Para hacer que LOGO realice un pro- 
cedimiento no tiene más que darle el nombre del mismo, como vimos al trabajar 
con estrella o con fd. Este proceso también se denomina “'llamar”” al procedi- 
miento o primitiva correspondiente. En resumen, enviar a LOGO una secuencia 
de caracteres que no vaya precedida por : o por ” (véase el tercer apartado) re- 
quiere que exista un procedimiento o primitiva con el mismo nombre, de lo con- 
trario LOGO responde “No sé cómo hacer ...”” 


3. Cuando escribe una palabra precedida de dos puntos (:), LOGO considera que 
nos referimos al **valor”” de un objeto. En este caso el nombre del objeto es yo 
y por tanto la instrucción :yo solicita a LOGO su valor; pero hay que tener en 
cuenta que yo todavía no tiene valor. 


4. A continuación se ha dado a yo el valor programador. Ambas palabras tienen 
que ir precedidas de comillas, para que LOGO sepa que estamos hablando de pa- 
labras y no de procedimientos. En la próxima línea se comprueba si se ha reali- 
zado la asignación correctamente. 


5. Se solicita otra vez a LOGO el valor del objeto yo; para ello no hay más que 
darle el nombre de dicho objeto. LOGO confirma que en este momento el valor 
de yo es programador. Tenga presente este ejemplo al examinar las siguientes 
líneas. 


6. Finalmente se ha dado a yo el valor estupendo (precedido de comillas, como 
siempre, para evitar que LOGO piense que se trata de un procedimiento). Como 
el valor anterior de yo era programador, esta última instrucción ha hecho que 
programador tome el valor estupendo. Conceptualmente podría sustituirse 
make :yo “estupendo por su equivalente make “programador “estupendo. 


Para comprobar esta última afirmación no tiene más que solicitar a LOGO el valor 
de programador, por medio de :programador, para ver que su valor es 
estupendo. 


Ahora ya podemos volver a la estrella que no habíamos conseguido definir 
correctamente. 
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4.4 Otra estrella nueva 
La anterior definición fue la siguiente: 


?po “estrella 

to estrella :lado :angulo :veces 

repeat veces [fd :lado rt :angulo] 

end 

?estrella 100 90 4 

I don't know how to veces in estrella: repeat veces 
[fd :lado rt :angulo] 

?ed 


y se había quedado en modo de edición con el cursor situado precisamente al co- 
mienzo de veces, es decir, en el lugar en que LOGO había localizado el error. 


Como LOGO espera que repeat vaya seguido de un valor y no le hemos dado un 
número de forma explícita, es preciso que el objeto que sigue a la primitiva tenga 
un valor (que identificaremos empleando :) o que se trate de un procedimiento que 
a su vez nos proporcione el parámetro que necesitamos. Nosotros no hemos defini- 
do veces como procedimiento, y realmente lo que tendríamos que haber escrito no 
es veces, sino :veces. Como nos encontramos en el editor es muy sencillo realizar 
las correcciones necesarias para que el procedimiento quede de la siguiente forma: 


to estrella :lado :angulo :veces 
repeat :veces [fd :lado rt :angulo] 
end 


con lo que finalmente todo funciona como es debido. Pruebe con unos cuantos 
valores. 


Se puede cometer muchos otros errores, pero la mayor parte serán fallos de mecano- 
grafía. Por ejemplo, ¿cuál cree que es el error en la definición del siguiente 
procedimiento? 


?estrella 100 90 4 

vces has no value in estrella :repeat :vces 
[fd :lado rt :angulo] 

?po “estrella 

to estrella :lado :angulo :veces 

repeat ;vces [fd :lado rt :angulo] 

end 

? 


Sugerencia: compruebe cómo se ha escrito cada nombre. 
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Por último trate de hallar el error de la siguiente línea: 
?to estrella :lado :angulo veces 
veces isn't a parameter 


? 


Esta vez no voy a dar ninguna pista. 


Capítulo 5 


Programas aleatorios 


En este capítulo vamos a practicar la utilización de procedimientos en LOGO, cen- 
trando nuestra atención en la tortuga. 


Con los procedimientos definidos en este capítulo la tortuga viaja por su cuenta a 
donde quiere, controlada (valga la expresión) por los caprichos imprevisibles de un 
generador de números aleatorios. Vamos a dejar que la tortuga se mueva por su 
cuenta y riesgo para centrarnos en el diseño de una serie de posibilidades un tanto 
más restringidas. 


Uno de los objetivos más importantes de este capítulo es presentar los conceptos de 
“secuencia”, ““repetición”” y ““control””, así como tomar contacto con la noción de 
““recurrencia””, que nos va a acercar a una de las herramientas más poderosas de 
que dispone el programador de LOGO. Si consigue hacerse con el concepto de “*re- 
currencia”” habrá dado un buen paso adelante a la hora de comprender, por ejem- 


plo, muchas de las ideas de la inteligencia artificial. 


La recurrencia es la característica que permite llamar a un procedimiento desde otro 
procedimiento del mismo tipo, intercalándose en éste de la misma manera que en 
el pensamiento unas ideas se intercalan en otras, o de la misma forma que en el len- 
guaje humano unas oraciones se intercalan en otras. La inteligencia humana tiene 
mucho que ver con las formas de emplear el pensamiento y el lenguaje. Para que 
un ordenador pueda comprender al menos parte de nuestros pensamientos y de 
nuestro lenguaje, es necesario que esté dotado de un lenguaje informático que per- 
mita intercalar unos procedimientos en otros, es decir, un lenguaje que admita pro- 
cedimientos recurrentes. LOGO es un lenguaje de este tipo. 


5.1 Generación de números aleatorios 


En muchos juegos para ordenadores, asicomo en muchos juegos tradicionales, el re- 
sultado depende en gran medida de los conceptos ““suerte”” y ““casualidad””. A lo 
largo de la historia de las matemáticas los hombres hemos desarrrollado toda una 
ciencia, la estadística, y uno de sus campos de aplicación, la probabilidad, para in- 
vestigar los fenómenos que pueden suceder o que han sucedido **por casualidad”. 
Pero ¿qué es un fenómeno aleatorio o casual? 
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Vamos a definir el procedimiento mover: 


?to mover 
>fd 15 

>end 

mover defined 
? 


Si llama a este procedimiento verá que la tortuga avanza una longitud casi insignifi- 
cante. Sin embargo, si las llamadas son varias conseguirá que la tortuga avance 
más. 


Ahora escriba las siguientes líneas: 
?random 360 


239 
?random 360 


?random 360 


É 


?random 360 


ve 


Probablemente los resultados que usted obtenga coincidirán con los del texto, a no 
ser que ya haya empleado el generador de números aleatorios. Los números aleato- 
rios que genera Dr LOGO siguen una secuencia establecida previamente, así que pa- 
ra Obtener una serie que comience en un valor desconocido hay que comenzar en 
un punto también aleatorio. 


Para ver la regularidad del generador de números aleatorios, vuelva a inicializar 
LOGO dando la orden bye. Una vez que se encuentre en CP/M, cargue de nuevo 
LOGO y escriba la siguiente línea: 


?repeat 10 [pr random 360] 
239 

86 

344 

29 

140 
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Verá que los cuatro primeros números son los mismos que en el ejemplo anterior. 
Se puede partir de un origen aleatorio empleando el procedimiento randomize, con 
el que volveremos a trabajar un poco más adelante en el capítulo “Nombres y pro- 
piedades””?. Este procedimiento emplea la primitiva nodes para proporcionar un 
número aleatorio como punto inicial. 


?to randomize 

>repeat nodes — 50 x* int (nodes / 50) [if 2 = 
random 2 []] 

>end 

randomize defined 

?randomize 

? 


El procedimiento randomize que acabamos de definir comienza la secuencia con 
un valor imprevisible, ya que la lista de instrucciones se repite un número de veces 
indeterminado. Esta lista no realiza ninguna acción debido a que cuenta con otra 
lista vacía []. Utilizando varios procedimientos que veremos en el capítulo ““Nom- 
bres y propiedades””, he estudiado el comportamiento del generador de números 
aleatorios y he podido comprobar que dicho comportamiento es realmente 
aleatorio. 


5.2 Una tortuga vacilante 


Compare cómo afectan estos dos grupos de instrucciones a la orientación de la tor- 
tuga. En primer lugar escriba: 


?rt 45 
?It 45 
? 


y a continuación: 


?rt 45 
?rt 315 
? 


Ambos resultados son iguales. La tortuga gira 45 grados a la derecha para volver 
a tomar a continuación la orientación de partida. Para la tortuga la instrucción It 
45 es equivalente a rt 315. Esto es debido a que 45 más 315 suman 360 grados, es 
decir, una circunferencia completa. 
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Ahora escriba: 


?¿mover 

I don't know how to mover 
?to mover 

>tfd 15 

>end 

mover defined 

? 


puesto que al salir de LOGO por medio de bye se perdió la primera definición del 
procedimiento mover. A continuación escriba: 


?rt random 360 mover rt random 360 mover 
?rt random 360 mover rt random 360 mover 
?rt random 360 mover rt random 360 mover 
?rt random 360 mover rt random 360 mover 
? 


Para repetir las líneas no es preciso volver a introducirlas de nuevo; puede emplear 
[cTrL [Y]. Una vez que haya repetido esta línea unas cuantas veces, aunque use 
empezará a preguntarse si no existe un método más sencillo. Con LOGO 
siempre suele haberlo. 


Si el procedimiento mover simplifica bastante el avance de la tortuga, ¿por qué no 
crea un procedimiento que simplifique también los giros? Lo único que hay que ha- 
cer es sustituir rt random 360 por una sola palabra, es decir, por un procedimiento 
al que daremos un nombre adecuado, como por ejemplo vacilar. Dejo que sea us- 
ted quien defina el procedimiento que se encarga de hacer girar a la tortuga de forma 
que tome direcciones aleatorias. Aquí tiene una pista: comience con 


?to vacilar 


Ahora, puede comprobar que el procedimiento que usted ha definido funciona co- 
rrectamente empleándolo en el siguiente ejemplo: 


?cs 
?vacilar mover vacilar mover vacilar mover 
? 


En la segunda línea aparece varias veces el procedimiento vacilar. Si todo ha fun- 
cionado correctamente, ¿por qué no emplear la sentencia repeat? 


?to paseo_corto 

>repeat 200 [vacilar mover] 
>end 

paseo_corto defined 

? 
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En este ejemplo se ha definido otro procedimiento que se encarga de hacer que la 
tortuga de un paseo_ corto. Al ejecutar este procedimiento la tortuga parece va- 
cilar un rato hasta pararse. Puede volver a ejecutar este procedimiento y pulsar 
antes de que acabe, con lo que se encontrará con el siguiente mensaje: 


Stopped! in paseo_ corto: mover 
o tal vez con este otro: 
Stopped! in paseo_ corto: vacilar 


o con alguno similar dependiendo del punto en que haya interrumpido la ejecución 
del procedimiento. En caso de que quiera modificar el número de repeticiones, pue- 
de modificar el parámetro que sigue a repeat hasta un valor máximo de: 


?to paseo_largo 

>repeat 32767 [vacilar mover] 
>end 

paseo_largo defined 

? 


Al dar un paseo-_largo es bastante probable que en algún momento la tortuga se 
salga de la pantalla. Al entrar en LOGO desde CP/M el ordenador se encuentra 
en modo window, es decir, la pantalla forma parte de un área gráfica bastante más 
amplia. Para evitar que la tortuga desaparezca de la pantalla emplee la instrucción 
wrap. 


?wrap fs cs paseo_largo 


A continuación vamos a estudiar otro método con el que se puede obtener el mismo 
resultado de forma tal vez un poco más clara. 


5.3 Un viaje más largo 


En el apartado anterior hemos realizado un viaje (con vacilar y mover), a continua- 
ción otro viaje (también con vacilar y mover) y luego otro más (otra vez con los 
mismos procedimientos) y después ... Necesitamos un procedimiento, al que lla- 
maremos viajar, que se componga de vacilar, mover y por último otra vez de via- 
jar. El procedimiento se define así: 


?to viajar 

>vacilar mover viajar 
>end 

viajar defined 

? 
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Si ejecuta este procedimiento, verá que la tortuga comienza a pasearse y sigue así 
hasta que usted se canse e interrumpa el procedimiento, ¿no es así? 


El procedimiento viajar es lo que se denomina un procedimiento “*recurrente””, por- 
que vuelve a llamarse a sí mismo. Siempre que LOGO llama a un procedimiento, 
por ejemplo a vacilar, podemos considerar que sustituye el nombre del mismo por 
su definición: 


?po “vacilar 
to vacilar 
rt random 360 
end 

? 


lo que quiere decir que también podría haberse definido viajar con rt random 360 
mover viajar. Observe que acabo de dar la definición de vacilar que antes omití. 
También podría sustituirse el procedimiento mover por fd 15, con lo que viajar 
quedaría como rt random 360 fd 15 viajar. 


Si seguimos sustituyendo todos los procedimientos a los que llama viajar por su de- 
finición, obtendríamos finalmente: 


rt random 360 fd 15 rt random 360 fd 15 rt random 


lo que significa que viajar es una lista indefinida de instrucciones que en la práctica 
viene limitada únicamente por las capacidades de LOGO. 


El tipo de recurrencia que hemos empleado en viajar se denomina “*cola””, dado que 
la lista de instrucciones forma una cola cada vez más larga. Dr LOGO puede ejecu- 
tar un procedimiento recurrente de cola durante bastante tiempo, siempre y cuando 
el procedimiento no solicite datos cada vez. De hecho he puesto a la tortuga a viajar 
durante periodos bastante largos, con la pantalla en modo wrap; la huella de la tor- 
tuga ha dejado la pantalla casi totalmente cubierta. 


5.4 Cómo controlar el movimiento 


La única forma de detener los paseos de la tortuga en el anterior procedimiento es 
pulsar las teclas o [CTRL][G], pero si quiere emplear un método más sofistica- 
do puede probar con: 


?to viajar? 

>vacilar mover 

>if not keyp [viajar?] 
>end 

viajar? defined 

?cs viajar? 
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Con este sistema la tortuga empieza a pasearse por la pantalla hasta que pulse cual- 
quier tecla que no sea [esc]. El único problema es que la tecla pulsada se repro- 
duce en la pantalla para textos. 


La primitiva keyp comprueba si se ha pulsado cualquier tecla, dando como resulta- 
do TRUE (cierto) o FALSE (falso). Se puede pasar de TRUE a FALSE y a la inversa 
por medio de not, como en el siguiente ejemplo: 


?not TRUE 

| don't know how to TRUE 
?not “TRUE 

FALSE 

?not “true 

true is not TRUE or FALSE 
? 


El último mensaje de LOGO ('*true is not TRUE or FALSE”, es decir, *“lo verda- 
dero no es VERDADERO ni FALSO””) parece tener un profundo contenido filosó- 
fico. En la práctica, lo único que quiere decir es que para emplear estos términos 
hay que escribirlos en mayúsculas y precedidos por unas comillas. 


Para resolver el problema anterior tendríamos que encontrar una forma para que 
la tecla pulsada no apareciese en pantalla; la solución es bastante sencilla: 


?to viajar? 

>vacilar mover 

>if not keyp [viajar?] [borrainputl] 
>end 

viajar? defined 

? 


La única novedad es la inclusión del procedimiento borrainput como acción alter- 
nativa en la sentencia if. En caso de que la condición se cumpla, LOGO vuelve a 
ejecutar viajar?, pero si es falsa pasa a borrainput. No es necesario definir bo- 
rrainput antes de definir viajar?, así que todavía podemos pensar tranquilamente 
qué es lo que queremos que realice este procedimiento. 


Realmente lo que queremos es que LOGO lea la tecla pulsada en el teclado, pero 
que no haga nada con esta información. Hay varios métodos que permiten ver si 
se ha pulsado alguna tecla, por ejemplo: 


?rl 
seguido de: 


hj jj ll 
[hj jj 1 
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y de: 


?rq 

hi jj MM 
hj jj 1 
?count rl 
123 
3 

?count rq 
123 
5 

?re 

m 

?count rc 
1 

? 


LOGO cuenta con tres primitivas que le permiten leer la información escrita: 


1. rl, abreviatura de ““readlist”” (leer lista). Toma todo lo que escribimos hasta el 
primer y lo convierte en una lista. De esta forma hj ii Il pasa a ser [hj ii 11] 
y 12 3 pasa a ser [1 2 3], que es una lista de tres elementos. 


2. rq, abreviatura de ““readquote”” (leer literalmente). Esta instrucción vuelve a to- 
mar la misma línea que en el caso anterior y la convierte en una palabra. De esta 
forma 1 2 3 pasa a ser ”1 2 3, que tiene cinco elementos dado que los espacios 
intercalados también cuentan. 


3. rc, abreviatura de ““readcharacter”” (leer carácter). Lee un carácter en cuanto lo 
escribimos, pero no lo reproduce en pantalla; la m que vemos es la respuesta de 
rc, y no proviene del teclado como es habitual. Para comprobarlo no hay más 
que ver que la respuesta de count rc es 1, siendo m el carácter pulsado. 


Una vez vistas las características de estas primitivas de lectura, está claro que para 
nuestros fines nos conviene emplear rc. 


Además tenemos que hacer algo con el carácter, así que podemos asignarlo a una 
variable local. 


?to borrainput 
>local “c 

>make “c rc 
>end 

borrainput defined 
? 


De esta forma hemos conseguido una fórmula bastante más elegante para detener 
los paseos de la tortuga. 


Compruebe que funciona realmente. 


Capítulo 6 


La tortuga viajera y el color 


En el capítulo anterior no hemos dibujado ninguna figura ni ningún diagrama, dado 
que aún no hemos visto cómo ponerlas color. Ahora vamos a resarcirnos plena- 
mente con una serie de procedimientos que nos permiten trabajar con los colores, 
empleando fundamentalmente las capacidades de los ordenadores Amstrad y no po- 
sibilidades adicionales que aporte LOGO. 


Una vez que hayamos visto estas técnicas, su aplicación a muchos otros campos que- 
da ya en manos de cada uno. 


6.1 Códigos de control 


En el capítulo de ““Referencias del Manual del Usuario de Amstrad”” encontrará un 
apartado sobre caracteres de control a los que habitualmente no puede acceder por 
medio de la tecla [CTRL]. 


Si introduce: 


[G] 
Stopped! 
?char 7 


? 


verá que la respuesta del ordenador a la instrucción char 7 es una línea en blanco 
junto con la emisión de un pitido. Si escribe char 2 verá que el cursor desaparece 
de repente, volviendo a aparecer en cuanto introduzca char 3. Todos estos fenóme- 
nos que pueden parecer bastante extraños vienen perfectamente explicados en el ca- 
pítulo de Referencias que acabamos de citar. 
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A continuación está reproducida una parte de la tabla de códigos de control. 


Valor Nombre Parámetros Significado 


$000  NUL - Sin efecto. LOGO la ignora. 

8022  STX - Hace invisible el cursor. 

8033: ETX Vuelve a hacer visible el cursor. 

$044: EOT 02 Establece el modo de pantalla. 

£07 7 BEL Produce un pitido. 

-£1C 28 FS 0.. 15 Asigna un par de colores a una tinta. 

0..31 — Equivale a la orden INK. 

81D 29 GS y Asigna un par de colores al borde. 
0..31 ' Equivale a la orden BORDER. 


La primitiva char guarda una estrecha relación con la tabla anterior. Vamos a em- 
plear los caracteres de control para modificar a nuestro gusto las salidas por panta- 
lla. Su uso es muy sencillo. Comencemos con un procedimiento que permite fijar 
el color del borde: 


?to colorborde :valor 

>make “valor + 32 

>op (word char 29 :valor char :valor) 
>end 

colorborde defined 

?colorborde 13 


? 


con lo que la pantalla queda rodeada de un borde blanco. Si quiere un borde que 
parpadee escriba: 


?(word char 29 char 2 char 18) 
? 
También puede conseguir una mezcla realmente horrorosa con: 
?(word char 29 char 6 char 18) 
? 


Vuelva a una situación más tranquila con colorborde 13. 


El parámetro de colorborde, :valor, corresponde a los números del “MASTER 
COLOUR CHART” del Amstrad. En este cuadro puede ver que el número 13 co- 
rresponde al color blanco. En la siguiente línea de la definición del procedimiento 
hemos aumentado el valor de este parámetro a 32 unidades; el valor real que emplea 
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el procedimiento es el resto de una división por 32, y de esta forma se evita la emi- 
sión del carácter de control 0, correspondiente a NUL, que detiene el funcionamien- 
to regular. 


La siguiente línea emplea la primitiva word para enviar al ordenador una secuencia 
de caracteres que no incluya espacios ni retornos de carro. Esta instrucción va entre 
paréntesis junto con sus parámetros, dado que admite un número de datos variable. 
La secuencia final enviada al ordenador se compone del carácter de control 29 segui- 
do de un par de parámetros que representan los colores del borde. Si los dos últimos 
parámetros son distintos, el borde parpadea. 


Es conveniente comparar el procedimiento anterior con la descripción de los carac- 
teres de control que aparece en el Manual del Usuario. 


6.2 Algo más sobre los colores 


Una vez que hemos conseguido modificar el color del borde, vamos a intentar cam- 
biar el del papel. En el LOGO de Amstrad el color inicial del papel siempre es 0, 
así que debe haber bastantes similitudes entre el procedimiento colorpapel y el pro- 
cedimiento colortinta, que lógicamente habrá que definir con anterioridad. Estos 
procedimientos son los siguientes: 


?to colortinta :tinta :color 
>make “tinta :tinta + 16 
>make “color :color + 32 
>op (word char 28 char :tinta char :color char :color) 
>end 

colortinta defined 

?to colorpapel :valor 

>op colortinta 0 :valor 
>end 

colorpapel defined 
?colorpapel 0 colortinta 1 18 


?colortinta 2 6 colortinta 3 2 
? 


Hemos hecho que el papel tome color negro y la pluma verde brillante; de momento 
la pluma está empleando tinta 1. Si da la orden cs, borrado de pantalla, aparece 
la tortuga en verde. Si ahora ejecuta setpc 2, la tortuga aparece en rojo brillante; 
del mismo modo, si ejecuta setpc 3 la verá en azul brillante. La primitiva setpc 
determina el color de la tinta, es decir, lo que en nuestra jerga denominamos color 
de la pluma. 


Dr LOGO cuenta con una primitiva especial que le permite definir los colores: setpal. 
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Esta primitiva emplea dos parámetros; el primero es el número de la tinta, mientras 
que el segundo es una lista con las intensidades de los tres colores básicos en el si- 
guiente orden: rojo, verde y azul. Estos tres colores constituyen el sistema RGB que 
emplean la mayor parte de los monitores de color. Cada uno de los tres colores pue- 
de tomar tres intensidades: O (sin color), 1 (normal) y 2 (brillante). 


Por ejemplo, para que la tinta 3 tome un color azul normal no hay más que ejecutar 
setpal 3 [0 0 11; para dar a la tinta 2 una combinación de rojo y verde, ejecute set- 
pal 2 [1 1 0], con lo que obtendrá un amarillo. Por último, si quiere que la tinta 
1 sea una combinación de rojo brillante y azul brillante ejecute setpal 1 [2 0 2], con 
lo que se obtiene un magenta brillante. 


Antes de modificar los colores de las tintas intente realizar este pequeño ejercicio: 


cs 

?setpal 1 [0 2 0] 
?setpc 1 

?fd 150 rt 120 
?setpal 2 [2 0 0] 
?setpc 2 

?fd 150 rt 120 
?setpal 3 [0 0 2] 
?setpc 3 

?fd 150 

? 


Si ahora escribe: 
setpal 0 [0 0 0] 


y mueve la tortuga, verá que dibuja una línea invisible, dado que ha hecho que el 
color de la tinta sea igual que el del papel. 


Los procedimientos colortinta y colorpapel le permiten emplear los números de 
los colores a los que está acostumbrado, pero la primitiva setpal le abre un campo 
de experimentos mucho más interesante. 


Fíjese, sin embargo, que el LOGO de Amstrad no cuenta con una primitiva que per- 
mita cambiar el color del borde. 


6.3 ¿El viaje final? 


Las figuras 6.1 y 6.2 muestran dos ejemplos de viajes a todo color. 
La primera figura presenta en pantalla un dibujo bastante pequeño, debajo del cual 
podemos leer: 


Out of LOGO stack space 
? 
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Fig. 6.1 


qu PU tac space 


Fig. 6.2 


a lam 


que significa que LOGO no tiene suficiente memoria para recordar el procedimiento 
que se encarga del dibujo. Esto es algo que no había ocurrido con viajar?. Recuer- 
de que habíamos definido el procedimiento de la siguiente forma: 


?to col.viajar? 

>vacilar mover 

>setpc 1 + random 3 

>if not keyp [col.viajar?] [borrainputl] 
>end 

col.viajar? defined 

? 


Se trata de un procedimiento que ya le es familiar; la única modificación que se ha 
introducido ha sido incorporar cambios aleatorios en la tinta, pero al conservar en 
una parte de la memoria que se denomina ““pila”” (del inglés “*stack””) todos los cam- 
bios de color, en seguida se agota la memoria. Aunque el concepto de recurrencia 
permite una elegancia conceptual en los programas, en algunas circunstancias da lu- 
gar a situaciones prácticas bastante incómodas. 


Para obtener la segunda figura no se ha empleado el procedimiento recurrente, sino 
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un procedimiento iterativo con el que puede hacerse que la tortuga se mueva durante 
bastante más tiempo. El procedimiento iterativo es el siguiente: 


?to col.viajarit? 

>repeat 32767 [vacilar mover setpc 1 + random 3 
if keyp [borrainput stop]] 

>end 

col.viajarit? defined 

? 


Hay que destacar dos cosas en este procedimiento: el uso de stop para terminar la 
ejecución del mismo y lo difícil que resulta escribir col.viajarit? sin equivocarse. 


En algunos ambientes informáticos se desprecia el uso de los métodos iterativos 
frente a los recurrentes, que se consideran superiores en todos los aspectos de una 
forma casi mística. La recurrencia no tiene por qué ser superior en todo momento 
a la iteración (que puede definirse como todo aquello que emplea algún tipo de ele- 
mento que se repite). Cada cosa tiene su propio lugar ... 


6.4 Otros medios para mover la tortuga 


Hay un método bastante elegante para mover la tortuga por la pantalla que consiste 
en utilizar un joystick. A continuación vamos a estudiar detalladamente varios re- 
cursos de que disponemos en LOGO); en particular vamos a investigar los misterios 
de las primitivas throw y catch. 


Comencemos con unas cuantas cosas bastante sencillas. 


El primer procedimiento es: 


?to tortuga 

>repeat 32767 [girar mover] 
>end 

tortuga defined 

? 


que realmente emplea un bucle para repetir los efectos de [girar mover]. Este pro- 
cedimiento tiene un poco de todo. En 32767 ocasiones vemos a la tortuga girar y 
moverse hacia delante, aunque todavía no sabemos cómo vamos a hacer que nues- 
tra ““pequeña bestia”” gire y avance. 


El primero de los procedimientos que necesitamos es: 


?to mover 
>fd 15 

>end 

mover defined 
? 
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Este procedimiento se encarga de hacer que la tortuga avance 15 unidades cada vez 
que le llamamos. Es la historia de siempre. La novedad aparece en el segundo pro- 
cedimiento, girar: 


?to girar 

>rt (45 *joy) 
>end 

girar defined 
? 


Para comprender cómo funciona este procedimiento tenemos que ver previamente 
cómo funciona un joystick. El joystick que voy a describir es el de Amstrad, pero 
he trabajado con muchos otros que funcionan exactamente igual. 


El joystick no es más que una palanca negra que se mueve y que tiene un botón rojo 
en su parte superior. Si coge correctamente el joystick, verá la palabra “*TOP”” en 
la parte delantera del cuerpo del instrumento. Conecte el joystick a la parte poste- 
rior del ordenador e introduzca el siguiente procedimiento: 


?to leerjoy 

>repeat 32767 [pr paddle 0 if buttonp 0 
[stop]] 

>end 

leerjoy defined 

? 


Si gira la palanca del joystick mientras ejecuta el procedimiento leerjoy, verá 
aparecer en pantalla números que van del 0 al 7, y frecuentemente aparecerá tam- 
bién el número 255. Pruebe con distintas posiciones del joystick para ver qué valo- 
res aparecen en la pantalla. Para salir de este procedimiento pulse el botón del 
joystick. 


Si usted cuenta con dos joysticks tendrá que cambiar la lista de instrucciones, po- 
niendo paddle 0 paddle 1 if buttonp 0 or buttonp 1 [... para investigar el funcio- 
namiento de cada uno de ellos. El apéndice A indica cuál es la relación que hay 
entre los números que aparecen en pantalla y la posición de la palanca. Para ello 
se ha empleado el procedimiento dibujoy. Es necesario definir este procedimiento 
con el editor, dado que la lista de órdenes que se encargan de mover la tortuga es 
muy larga. 


?to dibujoy 

>local “val 

>cs fs ht 

>make “val 0 

>repeat 8 [pu td 30 pd fd 110 pu fd 10 tt :val 
bk 150 rt 45 pd make “val :val + 1] 
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>pu fd 6 It 90 td 22 

>tt “255 rt 9 

>fd 180 It 90 20 tt “ARRIBA 
>end 

dibujoy defined 

? 


Aparte de la pequeña complejidad que representa la ubicación de la tortuga, lo más 
importante de este procedimiento es el uso de la primitiva tt (turtle text), que permi- 
te escribir en la pantalla el valor del dato que la sigue. 


6.5 Valores procedentes de un procedimiento 


El procedimiento girar sólo contiene una línea activa: rt (45 * joy). Para que LO- 
GO pueda ejecutar esta línea es preciso que joy tenga un valor, en cuyo caso la tor- 
tuga gira a la derecha el número de grados que resulta de multiplicar 45 por el valor 
de joy. 


joy es un procedimiento, y hasta ahora hemos visto que los procedimientos realizan 
acciones pero no producen ningún valor. Para que un procedimiento produzca un 
valor se usa la primitiva op. La definición de joy es la siguiente: 


?to joy 

>local “joyval 

>make “joyval paddle 0 

>if :¡oyval = 255 [op 0] [op :joyvall 
>end 

joy defined 

? 


Ahora para mover la tortuga no hay más que ejecutar el procedimiento tortuga. 
También se la puede mover con el teclado numérico, pero de eso trataremos más 
adelante. 


6.6 Textos y gráficos 


Ya hemos visto que con la primitiva tt se puede escribir palabras en la pantalla de 
gráficos. Los dos procedimientos siguientes permiten poner rótulos a los dibujos: 


?to rotular 

>local “ps 

>make “ps item 4 tf 

>pu 

>catch “ROTULO [repeat 32767 [leertecla]] 
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>if :ps = “PD [pd] 

>recycle 

>end 

?to leertecla 

>local “ck 

>make “ck rc 

>if :ck = char 56 [seth 0 fd 16] 
>if :ck = char 50 [seth 180 fd 16] 
>if :ck = char 52 [seth 270 fd 16] 
>if :ck = char 54 [seth 90 fd 16] 
>if :ck = char 53 [tt rq] 

>if :ck = char 32 [throw “ROTULO] 
>end 

leertecla defined 

? 


Para facilitar un poco la comprensión del segundo procedimiento, leertecla, aquí 
tiene algunas equivalencias entre caracteres y sus valores ASCII: 


CARACTER ASCIl FUNCION 


“* (espacio) 32 Parar 

“2 50 Hacia abajo 
4 52 A la izquierda 
0 53 Escribir rótulos 
“6 54 A la derecha 
“8 56 Hacia arriba 


El procedimiento leertecla espera hasta que es pulseda una tecla y asigna el carácter 
correspondiente a la variable local ck. La serie de comparaciones múltiples, es de- 
cir, los if sucesivos, tienen por objeto comprobar si la tecla pulsada es una de las 
que reconoce el sistema. 


Hemos identificado las teclas por sus códigos ASCII para distinguir más fácilmente 
los caracteres numéricos y sus códigos, por ejemplo *2 y el código 50. Si compara- 
mos el teclado numérico con las direcciones correspondientes podremos ver si el 
usuario está empleando el teclado numérico para mover el cursor. 


En la tabla anterior, en el centro, nos encontramos con el carácter “5, que es el que 
se emplea para activar la secuencia tt rq. Para finalizar la rotulación no hay más 
que pulsar la barra espaciadora; fíjese que se ha elegido una tecla totalmente distinta 
de las del teclado numérico para evitar confusiones. Para salir del procedimiento 
leertecla se emplea throw ““ROTULO; por otra parte, catch “ROTULO forma 
parte del procedimiento rotular. 


El procedimiento rotular empieza con una variable local que contiene el estado de 
la pluma, es decir, item 4 tf. Asignamos este valor a ps para emplearlo más tarde 
cuando queramos modificar el estado de la pluma. Tenga en cuenta que es necesa- 
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rio levantar la pluma para ir de un rótulo a otro, de lo contrario la tortuga iría de- 
jando huella sobre el dibujo. 


El procedimiento leertecla se ejecuta hasta 32767 veces dentro de catch “ROTU- 
LO. A continuación el control pasa a la siguiente línea; en caso de que el estado 
inicial de la pluma fuese PD, vuelve a bajarse. Finaliza el procedimiento con una 
instrucción recycle, que organiza un poco la memoria, atando cabos sueltos, por 
si queremos volver a utilizar el procedimiento rotular. 


Y ahora vamos con los números. 


Capítulo 7 


Sonido 


En los ordenadores Amstrad, el sonido en LOGO tiene muchas similitudes con el 
sonido en BASIC. 


Vamos a estudiar por separado los formatos de las primitivas relacionadas con el 
sonido. 


7.1 Sound 


Esta orden tiene el siguiente formato: 


sound (estado de canal, tono, duración, volumen, envolvente de volumen, envol- 
vente de tono, ruido) 


A continuación veremos qué representa cada uno de los parámetros de esta orden. 


7.1.1 Estado del canal 


El estado del canal es un número que se determina sumando otros números que, a 
su vez, representan dónde ha de interpretarse el sonido. Los ordenadores Amstrad 
tienen tres canales, a los que llamaremos A, B y C, que se pueden programar por 
separado. Si no incluimos este parámetro, como por ejemplo: 


?sound [ ] 
? 


oiremos una especie de chasquido en el canal B. Normalmente siempre debe incluir- 
se este parámetro. 


La primitiva sound controla varias acciones que pueden reducirse a dos principales, 
enviar el sonido y sincronizar los canales, y a dos complementarias. 


La primera acción de sound, enviar el sonido a los canales, activa uno o varios ca- 
nales. Cada canal está representado por un número binario que lo identifica, y que 
es 001 para el canal A, 010 para el B y 100 para el C (1, 2 y 4 en decimal, 
respectivamente). 
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La otra acción principal que realiza esta primitiva es sincronizar los canales. Esto 
quiere decir que sound puede ordenar a varios canales que esperen hasta que se pro- 
duzca un hecho determinado; por ejemplo, puede hacer que el canal A se sincronice 
con el B. A partir de ese momento, las instrucciones sound que enviemos al canal 
A pasarán a formar parte de una cola y no se ejecutarán hasta que se sincronicen 
ambos canales. Mientras tanto el canal B puede estar interpretando cualquier soni- 
do, dado que la sincronización no se ejecuta hasta que el canal B recibe también una 
orden para sincronizarse con el A. 


También es posible solicitar una sincronización múltiple, pero en este caso hay que 
tener en cuenta que las instrucciones se mantienen en la cola y que cada sincroniza- 
ción no se ejecuta hasta que se recibe la otra correspondiente o hasta que se comple- 
ta la instrucción sound. En este caso los números correspondientes también se ba- 
san en la numeración binaria. El número a sumar para sincronizar con el canal A 
es 8, 16 para el B y 32 para el C. 


Si añadimos 64 a este parámetro conseguiremos ““bloquear”” la cola de sonidos; esto 
quiere decir que los canales especificados en la instrucción sound dejan de producir 
sonidos. Si el ordenador encuentra esta instrucción en la cola, también bloquea to- 
das las instrucciones de sonido que aparecen a continuación de la misma. 


Por ejemplo, supongamos que enviamos tres instrucciones sound consecutivas, en 
las que el valor del estado del canal es respectivamente 1, 67 y 2. En primer lugar 
suena el canal A. A continuación el ordenador bloquea los canales A y B (fíjese 
que 67 es 1 + 2 + 64). Estos canales continúan bloqueados hasta que los liberemos 
con release, momento en el cual sonarán ambos simultáneamente. Finalmente, 
cuando hayan terminado ambos volverá a sonar el canal B. Sin preocuparnos. de- 
masiado por el significado de la instrucción, escriba: 


?sound [1 200 200] sound [67 300 100] sound 
[2 100 200] 
? 


y oirá que el altavoz emite un sonido de 125000/200 hertzios (es decir, de 625 hert- 
zios) durante 200 centésimas de segundo, es decir, durante 2 segundos. 


Al terminar dicho sonido el ordenador no emitirá nada más hasta que escriba: 


?release 3 
? 


que produce otro tono, esta vez de 125000/300 hertzios (416.7 hertzios) durante 100 
centésimas de segundo, simultáneamente en los canales A y B. Una vez que haya 
emitido este sonido, el ordenador emitirá otro de 125000/100 hertzios (1250 hert- 
zios) durante 200 centésimas por el canal B. Ha debido emplear release 3 porque 
se trataba de liberar los canales A y B; 1 + 2es 3. 


El último valor que puede añadirse a este parámetro es 128, que corresponde al bo- 
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rrado de un canal. Para borrar el canal A tenemos que introducir sound [129], 
puesto que 1 + 128 es 129. Pruebe con este ejemplo: 


?sound [1 30 10000] sound [2 300 1000] 
?sound [129] 


si consigue introducir la segunda línea lo suficientemente deprisa, podrá apreciar 
que el sonido agudo termina, pero el grave continúa. 


7.1.2 Tono 


El tono viene representado por un número que varía entre 0 y 4095. 


Habitualmente se toma como referencia un tono de 284, que equivale a 440 hertzios. 
Por convenio internacional esta frecuencia corresponde a la nota LA de la octava 
central, a la que se denomina LA internacional. 


Se puede almacenar las notas correspondientes a la octava central, es decir, a la oc- 
tava 0, en una variable local, a la que daremos el nombre octava, junto con su tono 
correspondiente. Esta variable será bastante útil en cualquier procedimiento que 
asocie los nombres de las notas con sus tonos correspondientes. Tenga en cuenta 
que este procedimiento debe escribirse con el editor debido a la longitud de la lista 
octava: 


?to periodo :nota 

>local “octava 

>make “octava [DO 478 DO+ 451 RE 426 RE+ 402 MI 379 
FA 358 FA + 338 SOL 319 SOL+ 301 LA 284 LA+ 268 Sl 253] 
>op buscar :octava :nota 

>end 

periodo defined 

? 


Este procedimiento acepta el nombre de una nota y lo compara con los contenidos 
de octava, produciendo el tono correspondiente. 


El procedimiento buscar se encarga de realizar la búsqueda en la lista: 


?to buscar :l :n 

>if emptyp :l [op 0] 

>if = :n first :l [op item 2 :l] 
>o0p buscar bf :l :n 

>end 

buscar defined 

? 
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En caso de que no encuentre el nombre de la nota, este procedimiento da como re- 
sultado el valor 0. Podemos emplear periodo “DO en lugar del valor 478 que co- 
rresponde a esta nota. Por ejemplo: 


?periodo “DO 
478 

?periodo “MI+ 
0 

? 


Observe que el MIX no existe. 


Si quisieramos emplear este procedimiento en una instrucción sound tendríamos 
que modificar ligeramente nuestro primer intento: 


?sound [1 periodo “LA 200] 

sound doesn't like [1 periodo “LA 200] as input 
?sound (se 1 periodo “LA 200) 

? 


Debemos asegurarnos de que empleamos como parámetro de entrada una lista ““ac- 
tiva””, entendiendo como tal aquélla en que cada elemento se evalúa y ejecuta ade- 
cuadamente, para lo cual empleamos la primitiva se. 


Observe que la ejecución de periodo lleva un cierto tiempo, que el ordenador em- 
plea en calcular el tono. Esto tiene como consecuencia que la primitiva sound no 
se ejecute inmediatamente, sino que pasa a formar parte de la cola y se ejecuta cuan- 
do le llegua su turno. Compare las siguientes líneas: 


?sound (se 1 periodo “LA 200) 
?sound [1 100 200] sound (se 1 periodo “LA 200) 
? 


En el primer ejemplo hay que esperar un poco antes de oir el sonido, mientras que 
en el segundo caso el ordenador ejecuta inmediatamente el primer sound, ejecutan- 
do a continuación el segundo sin que se produzca ninguna pausa entre ambos. 


Hay un ejercicio interesante que consiste en definir un procedimiento al que denomi- 
naremos periodo :nota :numoctava, que acepta una nota y el número de la octava 
a la que pertenece y da como resultado el tono correspondiente. Inténtelo. 


7.1.3 Otros parámetros 


La duración del sonido se mide en centésimas de segundo, y puede variar entre 0 
y 32767. 
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El volumen varía entre 0 y 15. Si se omite este parámetro, LOGO toma implícita- 
mente el valor 12. 


La envolvente de volumen puede tomar un valor de 0 a 15, que representa el número 
de la envolvente que vamos a emplear. Si omitimos este parámetro, LOGO toma 
implícitamente una duración de 2 segundos, a no ser que se haya especificado una 
duración mayor. 


La envolvente de tono puede tomar también un valor de O a 15, que representa el 
número de la envolvente que vamos a emplear. Si se omite este parámetro el orde- 
nador produce un sonido de tono constante. 


El último parámetro representa un valor del nivel de ruido del sonido y toma valor 
entre 0 y 31. Cuanto mayor sea este valor, menor es la frecuencia del ruido. Vamos 
a probar varios valores de este parámetro: 


?sound [1 0 200 15 0 O 15] sound [1 0 200 15 0 
0 31] sound [1 0 200 15 0 0 1] 
? 


Sólo puede emplearse los niveles de ruido de uno en uno; esto quiere decir que cual- 
quier modificación de este parámetro anula el valor anterior. 


7.2 env 


Esta primitiva define el perfil de la envolvente de volumen que empleamos con la 
orden sound. Como ya se ha indicado, es posible definir hasta 15 envolventes 
distintas. 


El nombre ““envolvente de volumen”” proviene del perfil que se obtiene al dibujar 
una gráfica de volumen/tiempo en unos ejes coordenados; el Manual del Usuario 
presenta varios ejemplos. Para definir la envolvente empleamos un primer paráme- 
tro, que es el número que la identifica, y a continuación hasta cinco grupos de tres 
parámetros cada uno, con un mínimo de un grupo de tres parámetros. 


A continuación vamos a ver una instrucción env sencilla, seguida de una orden 
sound que hace uso de la misma: 


?env [10 15 1 10] 
?sound [2 300 200 O 10] 
? 


Esta envolvente tiene el número 10 y hace que el volumen aumente 15 escalones de 
una unidad cada uno, siendo la duración de cada escalón 10 centésimas de segundo. 
La orden sound produce un sonido en el canal B cuyo volumen aumenta desde cero 
hasta llegar a un máximo, terminando en este punto. 
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Los límites para los parámetros de env son: el número de escalones puede variar entre 
0 y 127; la altura de cada escalón entre — 128 y +127 (más adelante volveremos sobre 
este tema), y la duración de cada escalón puede ser de 1 a 256 centésimas de segundo. 


Para finalizar con volumen cero puede añadir otro grupo de tres parámetros a la 
envolvente: 


?env [10 15 1 10 5 253 40] 
?sound [2 400 1000 O 10] 
?sound [2 400 100 O 10] 

? 


con lo que el sonido aumenta suavemente, disminuyendo a continuación de forma 
bastante menos suave. El primer sonido se solapa con el segundo, dado que la en- 
volvente dura más de 100 unidades de tiempo. 


Es importante destacar el valor 253 que hemos dado a la altura del escalón; LOGO 
considera este valor equivalente a —3, ya que 253-256 es —3. El segundo grupo 
de parámetros establece otros 5 escalones con alturas de —3, es decir, disminuyen- 
do, cada uno de los cuales dura 40 centésimas de segundo. Si se modifica ligeramen- 
te la envolvente de forma que los escalones tengan una altura equivalente a —2: 


?env [10 15 1 10 5 254 40] 
?sound [2 100 1000 O 10] 
? 


el sonido mantiene el nivel de volumen en 5 durante un buen rato. La disminución 
de volumen es un poco brusca, así que vamos a aumentar el número de escalones 
a 10, lo que nos permite darles menos altura (—1): 


?env [10 15 1 10 255 40] 
?sound [2 50 1000 O 10] 
? 


Ya hemos dicho que las envolventes pueden contener hasta cinco grupos de paráme- 
tros, por lo que disponemos de una gran libertad a la hora de definir las envolventes. 


La diferencia principal a la hora de usar envolventes de volumen en BASIC y en LOGO 
reside en que éste último no admite valores negativos para fijar la altura de cada 
escalón. Si queremos definir escalones descendentes tenemos que hacerlo con el mé- 
todo de los complementos, es decir, restando el valor a 256. Es posible simplificar 
un poco estos cálculos de la siguiente manera: 


?to — :val 

>op 256 — :val 

>end 

— defined 

?env (se 10 15 1 105 — 2 40) 
? 


ENT 6l 


Se emplea el guión de subrayado (_) por su parecido con el signo menos, con lo 
que resulta bastante fácil de comprender y recordar. 


7.3 ent 


Esta es la primitiva que se usa para definir la envolvente de tono que empleamos 
en la instrucción sound. Es muy parecida a la envolvente de volumen env, aunque 
difiere de ésta en el número de escalones. 


Vamos a ver un ejemplo sencillo: 


?ent [15 239 1 5] 
?sound [2 200 2000 12 0 15] 
? 


En este ejemplo, el tono va descendiendo gradualmente al crecer el parámetro tono 
hasta llegar a un nivel, en el que permanece hasta que finaliza. El valor original 
del parámetro tono es 200, tal y como podemos ver en la instrucción sound. Este 
parámetro aumenta en los 239 escalones de la envolvente, creciendo una unidad en 
cada escalón. La duración de cada uno de estos últimos es de 5 centésimas de 
segundo. 


Se puede obtener un efecto totalmente distinto con la misma envolvente sin más que 
cambiar el valor inicial del tono: 


?sound [2 20 2000 12 0 15] 
? 


La estructura es la misma, únicamente varían los valores del parámetro tono. 


Los parámetros de la envolvente pueden tomar valores comprendidos entre los si- 
guientes límites: el número de escalones varía entre O y 239; la altura de cada escalón 
entre — 128 y +127, y, por último, la duración de cada escalón entre 1 y 256 centési- 
mas de segundo. 


Para conseguir una envolvente en que el tono del sonido baje para volver a aumen- 
tar a continuación y que dure exactamente lo mismo que la sentencia sound ante- 
rior, puede usar la siguiente secuencia: 


?ent [15 239 2 5 161 254 5] 
? 


Fíjese que 254 es equivalente a 254-256, es decir, a —2. La duración de esta envol- 
vente es de 239x*5 + 161x*5 = 2000 centésimas de segundo. 
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7.4 release 
Cuando una instrucción sound produce el bloqueo de un canal de sonido, puede 


liberarlo por medio de la primitiva release. Esta primitiva identifica los canales 
con los mismos números que emplea sound, es decir, 1 para A, 2 para B y 4 para C. 


Capítulo 8 


Las potencias de 2 


Este capítulo contiene dos aplicaciones que guardan estrecha relación con las poten- 
cias de 2. Ambas son ejercicios binarios. He elegido la primera de ellas por tratarse 
de un ejemplo muy frecuente que emplean muchos programadores en todos los len- 
guajes. La segunda guarda estrecha relación con la primera y se trata de una aplica- 
ción muy agradable. 


Tanto con el primer ejemplo, que se trata de un juego, como con el segundo, que 
es un pequeño programa que dibuja árboles, podremos estudiar como controlar la 
recurrencia en LOGO. Aquellas personas que deseen estudiar la recurrencia desde 
otros puntos de vista, pueden consultar mi libro “Pocket Guide to LOGO”, editado 
por Pitman Books. 


8.1 El juego ALTOBAJO 


Vamos a trabajar a continuación con un juego muy conocido que se emplea con fre- 
cuencia para enseñar técnicas de programación. Se trata del juego ALTOBAJO. En 
él, el ordenador elige un número secreto entre 0 y 99 y el jugador intenta adivinarlo. 
Si acertamos, el ordenador nos dice cuántos intentos hemos realizado; pero si falla- 
mos nos dice si nuestro numero es más alto o más bajo que el número secreto. 


Vamos a dar al procedimiento el mismo nombre que al juego, es decir, altobajo. 


?to altobajo 

>(local “secreto “numero “intento) 
>make “intentos 0 

>empezar 

>jugar 

>end 

altobajo defined 

? 


Esta definición es un buen ejemplo de una técnica de programación que ya está pro- 
bada y aceptada por muchos programadores; en caso de duda dele un nombre. No 
tengo la menor idea de cómo debe ser el programa del juego, al menos con detalle, 
pero lo que si sé con seguridad es que necesito por lo menos tres elementos, secreto, 
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numero e intentos, y que tengo que empezar haciendo que el ordenador elija su 
número secreto para poder empezar a jugar. 


Según lo especificado arriba, el procedimiento empezar debe ser más o menos así: 


?to empezar 

>make “secreto random 100 
>end 

empezar defined 

F 


El procedimiento jugar no va a resultar tan sencillo. En primer lugar tenemos que 
incrementar el número de intentos; a continuación tomamos el numero que supo- 
ne el jugador. En caso de que haya acertado no tenemos más que mostrar en panta- 
lla el número total de intentos, pero si no ha acertado tenemos que decirle si su 
numero es demasiado alto o demasiado bajo, para volver a jugar a continuación. 


?to jugar 

>make “intentos :intentos + 1 
>make “numero first rl 

>if :numero = :secreto [(pr [acierto en] 
:intentos) stop] 

>if :numero < :secreto [pr [bajo]] 
[pr [alto]] 

>jugar 

>end 

jugar defined 

? 


Antes de intentar explicar cómo funciona el procedimiento, aquí tiene un ejemplo: 


?altobajo 
50 

bajo 

75 

bajo 

87 

alto 

81 

bajo 

84 

alto 

83 

alto 

82 
acierto en 7 
? 
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Ya ha visto cómo responde el ordenador. Este procedimiento es un ejemplo de re- 
currencia *“controlada””. En la recurrencia de cola de la que he hablado anterior- 
mente no existe un verdadero control, pero en este juego si que lo hay. El procedi- 
miento jugar incluye las variables intentos, numero y secreto, que son locales 
respecto a este procedimiento y globales respecto a los procedimientos contenidos 
en altobajo, jugar y empezar. La primera línea de jugar se encarga de incremen- 
tar el contador de intentos en 1; a continuación damos a numero el valor del pri- 
mer (first) elemento de la lista que el jugador escribe por medio de la primitiva rl. 
Normalmente este elemento será un número. 


Si el numero coincide con el valor secreto, se imprime en pantalla que el jugador 
ha acertado el valor y el número de intentos que ha necesitado; a continuación fina- 
liza el procedimiento con stop. En caso de que el número sea inferior al valor se- 
creto, aparece en pantalla la palabra bajo y se puede volver a jugar, al igual que 
sucede si el numero es demasiado alto. 


La forma más rápida para descubrir un número consiste en emplear el “corte bina- 
rio””, es decir, en dividir el intervalo en que está contenido secreto en dos mitades 
iguales. Con este método nunca precisamos más de siete intentos (averigije por qué 
usted mismo). Puede estudiar la estrategia del corte binario en el ejemplo anterior. 


8.2 El árbol 


El resto del capítulo trata del dibujo de árboles binarios y se basa en buena parte 
en mi libro ““Introducing LOGO”, editado por Granada Collins. 


En primer lugar estudie las figuras 8.1 a 8.4, que evidentemente siguen una cierta 
progresión. Al dibujarlas he empleado tinta ““blanca brillante”? para que los dibu- 
jos queden más claros. El procedimiento empleado es el siguiente: 


?to arbol :l :o 

>if :o = 0 [stop] 
>It 45 fd :l 
>arbol :1/2 :o — 1 
>bk :l rt 90 fd :l 
>arbol :1/2 :o — 1 
>bk :l It 45 

>end 

arbol defined 

? 


En primer lugar observe en la figura 8.1, y suponga que la tortuga parte del pico 
de la ““uve””. 


Originalmente la tortuga apunta hacia arriba; a continuación gira 45 grados a la iz- 
quierda y luego avanza una longitud determinada (pongamos :l); posteriormente re- 
trocede la misma longitud, gira a la derecha 90 grados, avanza la misma distancia 
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que antes y por último retrocede la misma cantidad y gira 45 grados a la izquierda. 
Con esto debe haber vuelto a la posición y orientación de partida. 


Fig. 8.1 Fig. 8.2 


go 125 4 


Fig. 8.3 Fig. 8.4 


an... 


Fig. 8.5 
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La figura 8.2 procede de la 8.1, sólo que al final de cada avance la tortuga dibuja 
otra uve de mitad de tamaño que la precedente. Esta fórmula se va repitiendo en 
las figuras posteriores, pero la estructura básica es la de la primera figura, que es 
la que denominaremos de orden 1. La siguiente figura es la de orden 2, la siguiente 
de orden 3 y así sucesivamente. 


A medida que crece el dibujo va comprendiéndose por qué se ha dado el nombre 
de ““árbol”” al procedimiento. Es muy fácil escribir el procedimiento arbol; no hay 
más que traducir a instrucciones de LOGO las palabras empleadas para describir el 
procedimiento. Es necesario añadir el concepto básico de *““orden”” de cada dibujo; 
este dato es la variable :o que aparece en el procedimiento, con lo que si el orden 
es O el procedimiento finaliza con stop. Cada vez que llamemos al procedimiento 
arbol, obtendremos una *“uve”” cuyo tamaño se reduce a la mitad de la anterior y 
cuyo orden se reduce en una unidad. 


arbol es un procedimiento con recurrencia múltiple, dado que dentro de su propia 
definición se llama a sí mismo varias veces, aunque con distintos parámetros. 


Para dibujar el primer ““árbol”” no hay más que llamar a arbol :l 1; de la misma 
forma, para dibujar el cuarto ““árbol”” se llama a arbol :l 4. La figura 8.5 se ha obte- 
nido con arbol :1 10. Al llamar a este procedimiento con órdenes mayores, se obten- 
drán figuras que no se diferencian en la práctica de la anterior, dado que la resolu- 
ción de la pantalla es limitada y no permite apreciar más detalles. Además, si la 
longitud inicial era, por ejemplo, 100 unidades, la décima llamada al procedimiento 
arbol tendrá una longitud de avance muy pequeña. 


Para ver lo deprisa que disminuyen los términos de una progresión geométrica de 
razón 1/2, en la que cada término es la mitad del anterior, se puede aplicar el proce- 
dimiento mitad, que también tiene algo que ver con el corte binario. 


?to mitad :l :o 

>if :o = 15 [stop] 
> (pr :o :l) 

>mitad :1/2 :o + 1 
>end 

mitad defined 

? mitad 100 0 
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11 4.8828125e —02 
12 2.44140625e — 02 
13 1.2207031258e —02 
14 6.10351562e —03 
? 


Vamos a volver un momento al juego ALTOBAJO. Si se fija en la tabla anterior 
en el valor que corresponde al orden 7, veremos que es inferior a la unidad. Esta 
es la razón que permite asegurar que, empleando el corte binario, nunca necesitamos 
más de siete intentos para adivinar un número comprendido entre 0 y 99, dado que 
la diferencia entre números consecutivos es de una unidad. 


8.3 Un árbol inclinado 


El árbol binario dibujado es un poco soso; sería mucho más interesante intentar di- 
bujar árboles inclinados. La idea básica para dibujar estos árboles consiste en que 
una de las ramas que forman la ““uve”” crezca más que la otra. Con este sistema 
es posible conseguir unos efectos estupendos. 


La figura 8.6 ha sido creada con la siguiente instrucción: 


?cs pu fs bk 150 pd arbol_inc 150 20 1 .6 .5 
? 


La cosa está muy clara: alzamos la pluma (para que no pinte), pasamos a una panta- 
lla de gráficos completa, retrocedemos 150 unidades, bajamos la pluma y ejecuta- 
mos arbol_inc con los cinco parámetros indicados. 


Las dos figuras siguientes, 8.7 y 8.8, se obtienen con una instrucción similar, modifi- 
cando ligeramente los parámetros de arbol_inc. La primera se consigue con ar- 
bol_inc 150 20 2 .6 .5 y la segunda con arbol_inc 150 20 3 .6 .5. La figura 8.9 
procede de arbol_inc 150 20 10 .6 .5, y demuestra cómo pueden obtenerse dibujos 
realmente agradables a partir de unos pocos elementos muy simples. El ordenador 
tarda un poco más en realizar este último dibujo, dado que lleva bastante más 
trabajo. 


La definición del procedimiento arbol_inc es la siguiente: 


?to arbol_inc :l :a :o :f1 :f2 
>if :o = 0 [stop] 


>It :a 

>td :l 

>arbol_inc (:1 * :f1) :a (:0 — 1) :f1 :f2 
>bk :l 

>rt (2 x :a) 


>tfd (:1 * :f2) 
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>arbol_inc (:1 * :f1 x* :f2) :a (:0 — 1) :f1 :f2 


>bk (:1 * :f2) 

>It :a 

>end 

arbol_inc defined 
? 


Realmente se trata de un procedimiento muy interesante y merece la pena dedicarle 
un poco de tiempo. 


Fig. 8.6 Fig. 8.7 
Fig. 8.8 Fig. 8.9 


Para estudiarlo a fondo, a continuación tiene un procedimiento similar en el que 
no están incluidas las Órdenes a la tortuga: 


?to arbol_int :l :a :o :f1 :f2 

>if :o = 0 [stop] 

>(pr :l :a :o :f1 :f2) 

>arbol_int (:l * :f1) :a (:0 — 1) :f1 :f2 
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>arbol_int (:1 * :f1 * :f2) :a (:0 — 1) :f1 :f2 
>end 

arbol_int defined 
?arbol_int 1000 40 4 .8 .5 
1000 40 4 0.8 0.5 

800 40 3 0.8 0.5 

640 40 2 0.8 0.5 

512 40 1 0.8 0.5 

256 40 1 0.8 0.5 

320 40 2 0.8 0.5 

256 40 1 0.8 0.5 

128 40 1 0.8 0.5 

400 40 3 0.8 0.5 

320 40 2 0.8 0.5 

256 40 1 0.8 0.5 

128 40 1 0.8 0.5 

160 40 2 0.8 0.5 

128 40 1 0.8 0.5 

64 40 1 0.8 0.5 

Pe 


Diviértase un poco estudiando el ejemplo anterior. 


Capítulo 9 


Nombres y propiedades 


Vamos a dedicar una parte de este capítulo al estudio del generador de números 
aleatorios de Dr LOGO. Aprovechando este estudio analizaremos una de las carac- 
terísticas más importantes de LOGO: las “*propiedades””. 


Los ejemplos de programación que vamos a ver son muy útiles, dado que pueden 
ayudarnos a distinguir perfectamente y de una vez por todas el nombre de un objeto 
de sus diversas propiedades. El contenido de este capítulo no es demasiado sencillo, 
pero hay que dominar perfectamente el concepto de propiedades para estar en con- 
diciones de realizar programas de una cierta dificultad. 


9.1 Los valores de las propiedades 


Antes de seguir adelante, reinicialice LOGO desde BASIC. 


Si escribe: 
?.contents 
LOGO muestra una lista de los contenidos de su área de trabajo. Ahora escriba: 


?glist “.APV 
[] 
? 


que da el resultado de aplicar la instrucción glist al parámetro ”.APV, es decir, una 
lista vacía. Observe que las comillas son muy importantes, ya que aclaran que nos 
referimos al nombre .APV. De momento vamos a olvidarnos de glist para asignar 
un valor con la instrucción make: 


?make “a “bb 
?:a 

bb 

?glist “.APV 
[a] 

? 
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En primer lugar el objeto denominado a toma como valor la palabra bb; LOGO 
sabe que nos referimos al nombre y a la palabra gracias a las comillas. A continua- 
ción pedimos a LOGO el valor del objeto introduciendo :a; la respuesta es bb, lógi- 
camente. Finalmente solicitamos glist ”*.APV, a lo que el sistema responde con al; 
esto quiere decir que el elemento APV es realmente una **propiedad”” que corres- 
ponde en concreto al valor de una variable. 


La instrucción glist pregunta al sistema si existen objetos con la propiedad .APV, 
Cuando realizamos esta pregunta por primera vez, no había ningún objeto con valor 
y por eso obtuvimos una lista vacía. Ahora el valor de a es bb; por tanto si escribe: 


?plist “a 
[.APV bb] 
? 


recibirá una lista con las propiedades de a. Pruebe con: 


?a 

Il don't know how to a 

? toa 

>pr [el procedimiento llamado a] 

>end 

a defined 

?plist “a 

[.DEF [ ]] [pr [el procedimiento llamado a]]] 
.APV bb] 

? 


que indica en la primera línea del listado que LOGO considera a como el nombre 
de un procedimiento y, como no está definido previamente, no lo reconoce. En las 
líneas posteriores hacemos que a, además de tener un valor (.APV), tenga una defi- 
nición como procedimiento (.DEP). 


El procedimiento a produce una acción: 


?a 
el procedimiento llamado a 
? 


que usted preveía perfectamente a partir de la definición del procedimiento. A esta 
última le corresponde una propiedad, .DEF, cuyo valor es la propia definición, que 
no es más que una lista con otras listas dentro. Para aclarar un poco la forma en 
que LOGO guarda la definición en forma de lista, modifique la definición del proce- 
dimento a: 
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?to a :nada 

>pr :nada 

>end 

a defined 

?plist “a 

[.DEF [[nadal] [pr :nada]] .APV bb] 
? 


La mejor forma de estudiar cómo almacena LOGO las definiciones de los procedi- 
mientos es a través de la orden grop, como por ejemplo: 


?gprop “a “.DEF 
[Inada] [pr :nada]] 
? 


La orden grop puede emplearse para imitar a otra orden que aparece en muchas 
otras versiones de LOGO: la orden thing. Vamos a definir un procedimiento cuya 
respuesta sea el valor correspondiente a la propiedad .APV. 


?to thing :nombre 

>0p gprop :nombre “.APV 

>end 

thing defined 

?plist “thing 

[.DEF [[nombrel] [op gprop :nombre “.APV]]] 
?thing “a 

bb 

? 


Con las propiedades puede crearse muchas otras primitivas con las que cuentan 
otras versiones de LOGO, pero antes de seguir adelante escriba: 


?ed “a 


con lo que comprobará que el editor ofrece tanto el valor de a como su definición. 
Deberá obtener la siguiente respuesta: 


to a :nada 
pr :nada 
end 

make “a “bb 


dado que el editor comprueba tanto si el nombre tiene propiedad de valor como si 
tiene propiedad de definición. La versión para Amstrad de Dr LOGO tiene aún otra 
propiedad estándar: la propiedad .PRM. Esta propiedad da la posición de memoria 
en la que reside la primitiva de que se trate. 
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Para obtener una lista de todas las primitivas del sistema, es decir, para obtener el 
equivalente a .contents pero sólo con primitivas, se puede definir el siguiente 
procedimiento: 


?to .primitivas 
>op glist ”“.PRM 
>end 

.primitivas defined 
? 


De la misma forma, para obtener una lista de los nombres de variables se puede 
emplear: 


?to .nombres 
>op glist ”.APV 
>end 

.nombres defined 
? 


Más adelante podría ser muy interesante definir un procedimiento que además de 
los nombres de las variables proporcionase sus valores. 


9.2 Los valores de los valores 


Suponga que tenemos definido el procedimiento thing. Haga el siguiente expe- 
rimento: 


?¿make “a “b 
?make “b “c 
?thing “a 

b 

?:a 

b 

?thing “b 


Cc 

?thing thing “a 
Cc 

?thing :a 

c 

?::a 

:a has no value 
? 


Se ha dado al objeto llamado a el valor b, y al objeto llamado b el valor c. 
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thing “a da el valor b, al igual que :a. De la misma forma, thing “b da el mismo 
valor que :b, es decir c. Puede comprobarlo tanto con thing thing a como con 
thing :a. De todo esto se deduce que los dos puntos (:) son equivalentes a thing, 
pero esto no quiere decir que podamos intercambiar el uno por el otro en todos los 
casos. El ordenador admite thing thing a, pero por el contrario no admite ::a, 
puesto que LOGO no reconoce :a como el nombre de un objeto. 


Al escribir por primera vez la letra a, el ordenador ha respondido “*l don't know 
how to a””. Pruebe qué sucede al usar números: 
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1 

?plist 1 

plist doesn't like 1 as input 
?plist *1 

[] 

?make 1 2 

make doesn't like 1 as input 
?make ”1 2 

?plist “1 

[.APV 2] 

?thing “1 

2 

231 

2 

? 


Se ha obtenido un objeto, denominado 1, cuyo valor como propiedad .APV es 2. 
Literalmente, ““el valor de 1 es 2” (?!). 


Antes de pasar a los procedimientos con números aleatorios, realice un último 
experimento: 


?plist “to 

[1 

?to to 

>pr [que rara] 

>end 

to defined 

?to 

isn't a name or procedure 
?plist “to 

[.DEF [[ 1 [que rara]11] 
? 


El único cambio ha sido dar a la primitiva to de LOGO una definición nueva; sin 
embargo LOGO no tiene en consideración esta nueva definición de to, y sigue traba- 


76 NOMBRES Y PROPIEDADES 


jando con ella como antes. Si investiga la propiedades de to encontrará que .DEF 
figura en la lista. 


LOGO tiene ciertos criterios de prioridad que le permiten decidir qué hacer cuando se 
encuentra con propiedades contradictorias. Uno de estos criterios indica que las primi- 
tivas tienen prioridad sobre las definiciones posteriores que pueda realizar el usuario. 


9.3 Pruebas aleatorias 


En LOGO una sucesión de caracteres forma una palabra. Para formar una palabra 
con varios caracteres consecutivos, Dr LOGO cuenta con la primitiva word. Escri- 
ba las siguientes líneas teniendo cuidado de no confundirse con los paréntesis: 


?word “xx “999 
xx999 
?(word “xx “999 “yy) 


?(word “xx) 

xXx 

?2word “xx 

Not enough inputs to word 
? 


Fíjese cómo se emplean los paréntesis para agrupar las primitivas que pueden tener 
un número variable de parámetros. word es una de estas primitivas; habitualmente 
emplea dos parámetros, pero admite un número superior o inferior. Siempre que 
los parámetros no sean exactamente dos, es necesario encerrar toda la sentencia en- 
tre paréntesis, incluyendo la propia orden. 


El nombre ”1 no es lo mismo que el número 1; incluso el nombre admite un valor 
diferente a 1. Para dejar las cosas claras se puede emplear la orden word. Supon- 
gamos que tenemos un objeto denominado *9 y que queremos sumar una unidad 
a su contenido (.APV). Para ello podemos emplear varios métodos: 


?make ”9 10 

?make ”9 :9 + 1 

?make “9 (thing 9) + 1 

?make (word 9) (thing (word 9)) + 1 
? 


La instrucción thing no trabaja con un número de parámetros variable; no obstan- 
te, está encerrada entre paréntesis porque de lo contrario el ordenador interpreta 
thing (“9+1) como thing “9 + 1, o sea, thing “10. Haga la prueba: 


?thing “9 + 1 

gprop doesn't like 10 as input in thing: 
op gprop :nombre “.APV 
? 
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LOGO considera 10 como un número y “10 como una sucesión de caracteres que 
constituyen un nombre. Otra forma de realizar la misma tarea consiste en colocar 
el operador aditivo entre el número y la instrucción de LOGO. 


A continuación vamos a volver a emplear el procedimiento randomize que hemos 
visto en un capítulo anterior y cuya definición aparece un poco más abajo. Junto 
a él vamos a ver otros procedimientos que nos van a servir para comprobar la dispo- 
sición de los números aleatorios. 


?to pops 

>po glist ”.DEF 
>end 

pops defined 

? 


Hemos incluido en primer lugar este procedimiento porque su objetivo es proporcio- 
nar una lista de todos los procedimientos existentes. Algunas versiones de LOGO 
cuentan originalmente con la primitiva posp, pero en nuestro caso no es así y por 
tanto tenemos que crearla de esta manera. La orden glist ““.DEF nos da una lista 
con todos los objetos que tienen la propiedad, es decir, de todos los procedimientos. 
Las definiciones de éstos pueden sacarse en pantalla mediante la instrucción po, cu- 
yo parámetro es la mencionada lista. 


Otra instrucción frecuente en otras versiones de LOGO es edall, que se encarga de 
editar todos los procedimientos que hay en la memoria del ordenador. Evidente- 
mente, es posible crear esta instrucción con el siguiente procedimiento: 


?to edall 

<ed glist “.DEF 
<end 

edall defined 

? 


Pero volvamos a los números aleatorios. 


Introduzca los siguientes procedimientos para comprobar si existe alguna ley que li- 
gue los números aleatorios: 


?to comprobar :num :rep 
>borrar :num — 1 
>repeat :rep [mas :num] 
>listar :num — 1 

>end 

comprobar defined 

?to mas :x 

>local “n 

>make “n random :x 
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>make (word :n) 1 + thing (word :n) 
>end 

mas defined 

?to randomini 

>repeat nodes — 50 * int (nodes / 50) [if = 2 
random 2[]] 

>end 

randomini defined 

?to borrar :n 

>make (word :n) 0 

>if not = :n 0 [borrar :n — 11] 

>end 

borrar defined 

?to listar :n 

>(pr :n thing (word :n)) 

>if not = :n 0 [listar :n — 1] 

>end 

listar defined 

? 


El sistema empieza con el procedimiento comprobar:, que emplea dos parámetros: 
:num, que fija el intervalo de números a comprobar, y :rep, que representa el nú- 
mero de veces que vamos a llamar a la primitiva random. El primer paso es dar 
el valor 0 a los objetos cuyos nombres están comprendidos entre 0 y :num — 1. 
El segundo es ejecutar :rep veces el procedimiento mas :num, para activar final- 
mente listar :num — 1. 


El procedimiento mas :x comienza por declarar una variable local, :n; de esta for- 
ma el campo de acción de n queda restringido a este procedimiento. A continuación 
se da a n un valor comprendido en el intervalo 0 a :num — 1, como consecuencia 
de la orden random y del parámetro :num. Posteriormente el contenido de :n es 
convertirlo en nombre por medio de la primitiva word y, finalmente, aumenta en 
una unidad el contenido de dicho nombre por medio de 1 + thing (word :n). 


De todo lo anterior se deduce que esta rutina se encarga de tomar un número aleato- 
rio, convertirlo en el nombre de una variable y finalmente incrementar su contenido 
en una unidad. 


El procedimiento que se encarga de poner a cero los valores de los que antes había- 
mos hablado es borrar :n. Comienza poniendo a cero la variable cuyo nombre co- 
rresponde al número que contiene :n y, en caso de que :n no sea igual a cero, el 
procedimiento vuelve a llamarse a sí mismo, disminuyendo en una unidad el valor 
de su parámetro. Es un ejemplo clásico de utilización de las técnicas de recurrencia. 


Si nos detenemos a comparar los procedimientos listar y borrar, veremos que am- 
bos tienen estructuras similares. Sólo se diferencian en la primera línea, dado que 
el primer procedimiento se encarga de sacar en pantalla los valores de los objetos 
cuyos nombres están comprendidos en el intervalo :n — 1 a0. 
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En pocas palabras, estos procedimientos se encargan de generar :rep números alea- 
torios comprendidos entre 0 y :num — 1, sacando en pantalla una lista de sus valo- 
res. A continuación tiene unos cuantos ejemplos: 


?randomini comprobar 10 1000 
9 111 


9 104 


O 105 


9 107 
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Los resultados obtenidos parecen confirmar que el generador de números aleatorios 
que emplea el LOGO de Amstrad es realmente aleatorio. 


El ordenador necesita bastante tiempo para ejecutar este procedimiento, pero no ol- 
vide que si introducimos, por ejemplo, comprobar 10 5000, estamos llamando 
50000 veces a la instrucción random. 


En el próximo capítulo volveremos a emplear nuestros conocimientos sobre las pro- 
piedades para estudiar la aritmética en LOGO. 


Capítulo 10 


Aritmética y estadística 


Cuando empezamos a jugar con los números en LOGO, se abre ante nuestros ojos 
un mundo totalmente nuevo. Si introduce las siguientes líneas, obtendrá resultados 
bastante interesantes. 


?make “x 123 
?plist “x 

[.APV 123] 

2:x 

123 

?make “x 1/3 
?plist “x 

[.APV 0.333333333333333] 
PX 
0.333333333333333 
?count 123 

3 

?count 1/3 

17 

? 


Antes de seguir adelante trate de averiguar qué es lo que ha sucedido. 


10.1 Palabras y números 


En primer lugar hemos dado a la variable x el valor 123, lo que podemos comprobar 
solicitando una lista de las propiedades de x o bien por medio de :x. En segundo 
lugar hemos dado a x el valor 1/3, equivalente a 0.333333333333333, y finalmente 
hemos averiguado el número de elementos que contienen varias palabras por medio 
de la instrucción count. 


Observe que en 123 hay tres elementos, mientras que en 1/3 hay 17 elementos. ¿Por 
qué? Vuelva a los contenidos de x. 
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Cuando Dr LOGO encuentra un número entero, como es 123, puede almacenarlo 
de forma exacta en una palabra de tres elementos; pero cuando tropieza con algo 
que debería ser un número y que no puede almacenar de forma exacta con todos 
sus decimales, lo convierte en un número lo mejor que puede. LOGO no puede al- 
macenar 1/3 como número con este formato, así que realiza la división y guarda 
el resultado con quince cifras decimales significativas. 


Las quince cifras decimales significativas más el punto decimal y el primer cero nos 
dan un total de 17 elementos. Se podría haber llegado al mismo resultado de otra 
forma distinta: 


?item 1 1/3 
0 
?item 2 1/3 


? 


Según estas instrucciones, el primer elemento (item 1) de la lista de caracteres que 
constituye el número 1/3 es un cero, mientras que el segundo es un punto. Aún que- 
dan unos cuantos detalles que afectan a los operadores aritméticos. 


Haga unas cuantas pruebas con lo siguiente: 


71234567890987654321 
1.23456789098765e + 18 
71234567890987654321 
1234567890987654321 
71234567890987654321/1 
1.23456789098765e + 18 

? 


Compruebe que LOGO transforma el número 123456789098764321 en notación 
científica, es decir, 123456789098765e +18. El ordenador trata la palabra 
**1234567890987654321 como tal, y no como un número, a causa de las comillas que 
la preceden. Sin embargo, la expresión “1234567890987654321/1 recibe un trata- 
miento diferente. LOGO trata la primera parte como una palabra, al igual que an- 
tes, pero al encontrarse el operador de división, /, convierte la palabra en número, 
lo divide por 1 y finalmente da el resultado como número. 


Suponga que queremos que el ordenador trate la palabra 1/3 como tal. ¿Qué tene- 
mos que hacer? Es preciso informar a LOGO de que no queremos que trate el signo 
/ como operador de división, sino que lo considere como un caracter más. Para ello 
podemos emplear [crrL[ao] delante del carácter en cuestión, o bien pulsar directa- 
mente en el teclado la barra inclinada hacia la izquierda. Observe que el resultado 
de es precisamente incluir esa barra. Observe qué diferencias hay entre los 
siguientes ejemplos: 
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71/3 

0.333333333333333 
TINIS 

1/3 

211 /M3 

I don't know how to 1/3 
? 


10.2 Prioridades en aritmética 


En lo que resta de capítulo, he intentado crear un sistema que permita realizar cálcu- 
los estadísticos sencillos de una o dos variables con dos grupos de números. 


La operación más frecuente en estadística es la suma. Para aquéllos que estén inte- 
resados en el tema aconsejo mi libro “Pocket Guide to Statistical Programming”, 
editado por Pitman Books. Ya sabemos que la forma básica de almacenar informa- 
ción en LOGO es la lista y, por tanto, los cálculos estadísticos en LOGO requieren 
su empleo en operaciones y el manejo de las que contengan la información que nos 
interese. 


Para sumar los elementos de una lista no hay más que añadir el valor del primer 
elemento a la suma de los restantes, que a su vez se obtiene sumando el valor del 
primero a la suma de todos los demás. Es evidente que se trata de otro ejemplo clá- 
sico de procedimientos recurrentes. 


A continuación está definido un procedimiento, al que llamaremos sigma para em- 
pezar a emplear la terminología estadística, que se encarga de calcular la suma de 
los elementos de una lista empleando un método recurrente. 


?to sigma :listadatos 

>if not (count :listadatos) = 1 [op 

(first :listadatos + sigma bf :listadatos)] 
>if (count :listadatos) = 1 [op first 
:listadatos] 

>end 

sigma defined 

Y 


En caso de que el número de elementos de la lista no sea igual a 1, sigma imprime 
en la pantalla el resultado de sumar el primer elemento de la lista a lo que hemos 
obtenido aplicando el mismo procedimiento al resto de los elementos. Por el con- 
trario, en caso de que la lista solamente contenga un elemento, el resultado será el 
valor contenido en el primer y único elemento de la misma. 
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Veamos un ejemplo: 


?first la b c dl bf [a b c d] 


a 

la b cl] 

?sigma [1 2 3 4] 

+ doesn't like [1 2 3 4] as input in sigma: 
if not ( count :listadatos ) = 1 [op (first : 
listadatos + sigma bf :listadatos)] 

? 


con lo que volvemos a encontrarnos con un problema que ya nos es familiar. El 
operador aditivo intenta sumar los elementos que tiene a ambos lados, pero en este 
caso nos encontramos con :listadatos + sigma bf :listadatos. LOGO intenta su- 
mar :listadatos (que en este caso no es otra cosa que [1 2 3 4]) con el resultado de 
sigma. Es preciso indicar al ordenador el orden de prioridades a la hora de realizar 
las operaciones; para ello podemos emplear los paréntesis, o bien hacer uso de otra 
forma de emplear el operador aditivo. 


Cuando el operador + está situado entre los dos datos a sumar decimos que se trata 
de un operador ““infijo””. La versión de LOGO que emplea Amstrad también admi- 
te el uso del operador aditivo delante de los datos, como si se tratase de una instruc- 
ción. Cuando lo empleamos de esta forma decimos que estamos trabajando con un 
operador ““prefijo”?. Compruébelo con las siguientes instrucciones: 


21+3 
4 

?74+ 13 
4 

21 -3 
-2 

?- 13 
-2 
?-13 
-1 

3 

2* 13 
3 
?/13 
0.333333333333333 
? 


Fíjese que el ordenador interpreta —1 3 como dos números, un —1 seguido por un 
3, mientras que — 1 3 pasa a ser —2. El espacio que hay entre el signo menos (—) 
y el primer número es muy importante. También se puede emplear en forma de pre- 
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fijo el operador de igualdad (=). Con todo esto es posible realizar otra versión del 
procedimiento sigma: 


?to sigma :listadatos 

>if not = count :listadatos 1 [ op + 

first :listadatos sigma bf :listadatos] 

>if = count :listadatos 1 [op first :listadatos] 
>end 

sigma defined 

?sigma [1 2 3 4] 

10 

? 


El próximo paso es sumar las informaciones contenidas en dos listas distintas. 


10.3 Combinación de listas 


En primer lugar, fíjese en las siguientes sentencias de LOGO. Todas ellas emplean 
operadores prefijos. 


?2x 23 

6 

?[* 2 3] 

[x* 2 3] 

?run [x* 2 3] 

6 

?(se “x “2 3) 

[x* 2 3] 

?run (se “x* “2 *3) 

6 

?make “oper “* make “p1 2 make ”p2 3 
?(se :oper :p1 :p2) 

[x* 2 3] 

?run (se :oper :p1 :p2) 
6 

? 


La primitiva se, abreviatura de sentencia, toma una serie de datos y construye una 
lista con ellos. Por su parte, la orden run se encarga de tomar una serie de instruc- 
ciones y ejecutarlas como si se tratase de parte de un programa. 


Hemos tomado tres objetos (:oper :p1 :p2), el primero de los cuales representa un 
operador, y los hemos convertido en instrucciones que forman un corto programa. 
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Éste es un procedimiento que realiza esta misma acción: 


?to runop :oper :p1 :p2 
>o0p run (se :oper :p1 :p2) 
>end 

runop defined 

?runop “* 23 

6 

ri 


pero lo que realmente queremos hacer es aplicar un operador a cada par de elemen- 
tos que tomemos de dos listas, así que no tenemos más que aplicar runop y formar 
otra lista con se. 


?to combinar :oper :I1 :12 
>if not = 1 count :11 [op (se runop :oper 
first :11 first :12 combinar :oper bf :I1 bf 


:12)] 

>if = 1 count :11 [op runop :oper first :11 
first :12] 

>end 


combinar defined 

?combinar “* [1234 5] [123 4 5] 
[1 4 9 16 25] 

? 


Una vez que hemos definido este procedimiento, para calcular la suma de los cua- 
drados de los elementos de la lista [1 2 3 4 5] no tenemos más que hacer: 


?sigma combinar “x*[1 2 3 4 5] [1 2 3 4 5] 
55 
? 


Merece la pena que nos detengamos un momento para analizar con detalle el proce- 
dimiento combinar. 


Para ello vamos a servirnos de un pequeño truco. En primer lugar introduzca 
ed “combinar y, una vez que se encuentre en el editor, cambie el nombre del proce- 
dimiento por comb, las llamadas a combinar que realiza el mismo procedimiento 
por llamadas a comb, y por último añada una línea. 


?to comb :oper :I1 :12 

>pr list :11 :12 

>if not = 1 count :11 [op (se runop :oper first 
:11 first :12 comb :oper bf :I1 bf :12)] 

>if = 1 count :11 [op runop :oper first :11 
first :12] 

>end 
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La línea añadida puede ayudar bastante a la hora de seguir la pista a los datos de 
comb, o lo que es lo mismo, a los datos de combinar. 


?comb “x* [1 2 3] [1 2 3] 
(1 2 3] [1 2 3] 

[2 3] [2 3] 

[3] [3] 

[1 4 9] 

?pr se [1 2 3] [1 2 3] 
123123 

?pr list [1 2 3] [1 2 3] 

[1 2 3] [1 2 3] 


Ahora es posible ver que las listas introducidas como datos del procedimiento com- 
binar tienen un elemento menos cada vez que llamamos al procedimiento. Las lí- 
neas anteriores ofrecen, asimismo, un ejemplo de utilización de la primitiva list y 
de las diferencias entre list y se. Ya sabemos que se une los elementos y forma 
una sola lista; por el contrario, list conserva las listas componentes como tales. 


Se puede emplear la instrucción list para realizar las funciones de Iput, una primiti- 
va con la que cuentan otras versiones de LOGO. La instrucción Iput es la opuesta 
a fput (f y | son iniciales de first y de last, en inglés primero y último) 


?fput “x [xx yy [zz]] 
[x xx yy [zz]] 

?se “x [xx yy [zzl] 
[x xx yy [zz]] 

?fput Dd xx yy [zzl] 
[Dod xx yy [zz]] 

?se [x] [xx yy [zz]] 
[x xx yy [zz]] 

?list “x Doc yy [zz]] 
[x Dor yy [zz11] 

?list [x] Doc yy [zz]1] 
[bd Dax yy [zz11] 

? 


De todo esto puede deducirse que debemos emplear se cuando el elemento que que- 
remos añadir a una lista es una palabra, por ejemplo “x, reservando list para aque- 
llos casos en los que lo que queramos añadir sea una lista a otra, por ejemplo [x]. 
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Ahora bien, si queremos imitar el funcionamiento de Iput tenemos que distinguir 
dos casos, dado que no es lo mismo añadir una palabra a una lista que añadir otra 
lista. Para ello podemos emplear wordp: 


?wordp “x 

TRUE 

?wordp 3 

TRUE 

?wordp [x] 

FALSE 

?to Iput :elem :listadatos 
>if wordp :elem [op se :listadatos :eleml] 
[op list :listadatos :elem] 
>end 

Iput defined 

E 


Personalmente no estoy satisfecho con esta definición; me parece mucho más lógico 
que el orden de los datos sea :listadatos :elem, pero la norma general es el orden 
inverso que hemos empleado en nuestro caso. 


10.4 Estadística con dos variables 


Los elementos básicos con los que trabaja la estadística son las medias, las desvia- 
ciones típicas y las covarianzas. 


La media es la suma de todos los elementos de una lista dividida por el número de 
elementos que contiene. El procedimiento media es muy sencillo de definir: 


?to media :listadatos 

>op / sigma :listadatos count :listadatos 
>end 

media defined 

?media [1 2 3 4] 

2.5 

? 


Otra forma de obtener el mismo resultado es op (sigma :listadatos) / (count 
:listadatos), con el operador de división intercalado. Personalmente prefiero el 
primer sistema con operador prefijo; me parece más elegante. La media de [1 2 3 4] 
sería igualmente (1 + 2 + 3 + 4) / 4 = 2.5. 


Otra magnitud muy útil es el valor de la media de los cuadrados de los elementos 
de una lista. Para ello hay que elevar al cuadrado cada elemento, sumar todos los 
cuadrados y finalmente dividir este resultado por el número de elementos de la lista. 
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El procedimiento para calcular este valor es el siguiente: 


?to mediacuad :listadatos 

>op media combinar ”*x* :listadatos :listadatos 
>end 

mediacuad defined 

?mediacuad [1 2 3 4] combinar “*x* [1 2 3 4] 

[1 2 3 4] media [1 4 9 16] 

7.5 

[1 4 9 16] 

7.5 

? 


Por último, no queda más que determinar otro valor para poder realizar todos los 
cálculos estadísticos con dos variables. 


Esta magnitud es la media de los productos cruzados de los elementos correspon- 
dientes de las dos listas: 


?to mediaprod :I1 :12 

>o0p media combinar “x* :11 :12 

>end 

mediaprod defined 

?mediaprod [-2 -1 0 1 2] [-2 -10 -1 -2] 
0 

? 


El siguiente paso es emplear los procedimientos ya definidos para determinar la 
varianza de los valores de una lista y la covarianza de los elementos de un par de 
listas. 


La varianza de una lista de valores es igual a la diferencia entre el valor de la media 
de sus cuadrados y el cuadrado de su media aritmética. 


?to varianza :listadatos :mediadatos 

>0p — mediacuad :listadatos (* :mediadatos 
:mediadatos) 

>end 

varianza defined 

?varianza [1 2 3 4 5] (media [1 2 3 4 5]) 

2 

? 


El procedimiento varianza emplea dos parámetros: la lista de los datos y su media 
aritmética. En este ejemplo la instrucción encargada de determinar el cuadrado de 
la media va entre paréntesis. He empleado el segundo parámetro porque la media 
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se usa en muchos sitios, incluyendo el procedimiento para determinar la covarianza 
que vamos a ver a continuación. Podría haber llamado tranquilamente al procedi- 
miento media, pero, si se calcula una sola vez este valor y se introduce en una varia- 
ble, nos ahorraremos unos cuantos cálculos cuando haya que volver a utilizarlo. 


De momento no se preocupe por este detalle; un poco más adelante veremos clara- 
mente su utilidad. Ahora veamos el procedimiento covarianza. La covarianza de 
dos listas de valores es igual a la media del producto cruzado de ambas menos el 
producto de las dos medias, es decir: 


?to covar :I11 :12 :m1 :m2 

>0p — mediaprod :11 :12 (* :m1 :m2) 
>end 

covar defined 

?covar [1 2 3 4 5] [5 4 3 2 1] media 
[123 4 5] media [1 2 3 4 5] 

-2 

? 


El resto de los cálculos estadísticos de este capítulo se basan en los conceptos de va- 
rianza y covarianza que acabamos de definir, pero antes de seguir adelante debemos 
definir dos procedimientos para calcular dos funciones matemáticas muy útiles. 


10.5 Un invento aritmético 


La magnitud de uso más frecuente de una lista de valores, después de su media arit- 
mética, es su desviación típica, que es igual a la raíz cuadrada de la varianza. Des- 
graciadamente, la versión de LOGO que emplea Amstrad no cuenta con una primiti- 
va que permita calcular raíces cuadradas, así que tendremos que ingeniárnoslas para 
definir un procedimiento que realice esta tarea. La cosa es bastante sencilla. 


Aquí tiene un procedimiento que calcula raíces cuadradas por el método de Newton: 


?to raiz2 :num 

>local ”r2 

>make *“r2 :num / 2 

>repeat 128 [if abs (:r2 — :num/:r2) < :r2 x 
5.e-15 [op :r2] [make “r2 (:r2 + :num/:r2) / 2]] 
>o0p :r2 

>end 

raiz2 defined 

?to abs :a 

>if :a < 0 lop —:al [op :al 

>end 

abs defined 

? 
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Para ver cómo funciona raiz2 añada la instrucción pr :r2 delante de la sentencia if, 
es decir, (pr :rZifabs...). Los valores que aparecen en la pantalla convergen hacia 
un determinado valor que es la raíz cuadrada del número. Por ejemplo: 


?raiz2 10 

5 

3.5 
3.17857142857143 
3.16231942215088 
3.16227766044414 
3.16227766016838 
3.16227766016838 
? 


El procedimiento raiz2 emplea un bucle sin fin que modifica continuamente el valor 
de la variable local r2. El ordenador calcula la diferencia en valor absoluto entre 
cada dos valores de r2, y sale del bucle cuando esta diferencia alcanza el orden de 
5.e—15, imprimiendo en pantalla el valor de r2. Los valores de las dos últimas lí- 
neas son iguales, dado que el primero de ellos procede de la instrucción pr y el se- 
gundo de op. 


Para comprobar que el procedimiento funciona correctamente, haga una prueba 
con lo siguiente: 


?raiz2 10 

3.16227766016838 

?raiz2 10 “y “luego 10/raiz2 10 
3.16227766016838 


y 

luego 
3.16227766016838 
? 


Puede observar que el valor que hemos calculado con raiz2 10 es igual al valor de 
10/raiz2 10, como tenía que ser. 


El procedimiento abs es muy simple; se encarga de determinar el valor absoluto de 
un parámetro: 


?abs 3 abs 0 abs —0 abs -—4 


Y hb OO yw 


Ahora ya estamos en condiciones de hacer frente al resto de los cálculos estadísticos. 
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10.6 Correlación y regresión 


Una vez definidos todos los procedimientos anteriores, calcular la correlación de dos 
listas de valores es una tarea verdaderamente sencilla. La correlación es igual a la 
covarianza de las dos listas dividida por el producto de sus desviaciones típicas. 


?to corr :cov :sd1 :sd2 
>0p / :cov (* :sd1 :sd2) 
>end 

corr defined 

?corr4 .58 

1 

? 


La correlación no produce más que un único valor como resultado, pero la regresión 
produce dos: la constante de regresión y el coeficiente de regresión. 


El coeficiente de regresión se determina calculando la covarianza de las dos listas 
de valores y dividiéndola por la varianza de la lista que contiene los valores del eje 
Xx. Realmente, el coeficiente de regresión no es más que la pendiente de la recta cuya 
ecuación es la siguiente: 


prevy = regconst + regcoef * x 


en la que prevy representa el valor Y previsto para cada X, mientras que regconst y 
regcoef corresponden a los coeficientes de igual nombre que definimos a continua- 
ción. La ecuación anterior define una recta que se conoce como “*recta de regresión”. 


El procedimiento que permite calcular el coeficiente de regresión es el siguiente: 


?to regcoef :cov :var 
>0p :cov / :var 
>end 

regcoef defined 

? 


La constante de regresión se obtiene trabajando con la ecuación de regresión, de for- 
ma que sea igual a la media de los valores del eje X multiplicada por el coeficiente 
de regresión y restando al resultado obtenido la media de los valores del eje Y. La 
constante de regresión representa el punto en que la recta de regresión corta al eje 
Y; el procedimiento para calcularla es el siguiente: 


?to regconst :my :mx :rcoe 
>0p — :my (* :mx :rcoe) 
>end 

regconst defined 

? 
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Puede combinarse estos dos procedimientos para obtener otro de regresión completo: 


?to regres :my :mx :varx :cov 

>local “coef 

>make “coef regcoef :cov :varx 

>0p se (regconst :my :mx :coef) :coef 
>end 

regres defined 

?regres 2336 

[—4 2] 

? 


Fijese en la utilización de la instrucción se para imprimir en pantalla una lista de 
dos valores. En este caso los paréntesis sólo sirven para delimitar el procedimiento 
regconst y sus parámetros, de forma que la lectura de la definición del procedi- 
miento resulte más sencilla. LOGO realmente no los necesita. A continuación va- 
mos a definir un procedimiento que calcule el coeficiente de correlación, la constan- 
te de regresión y el coeficiente de regresión en este orden. 


?to correg :cov :vary :varx :my :mx 
>o0p se (corr :cov raiz2 :vary raiz2 :varx) 
(regres :my :mx :varx :cov) 

>end 

correg defined 

?correg 6 48 3 2 2 

[0.5 —-2 2] 

? 


Observe detenidamente cómo hemos dividido todo el sistema estadístico en módu- 
los. Hasta ahora no hemos definido ningún procedimiento que sea en sí largo o 
complicado; sin embargo el resultado final es muy potente. 


10.7 Sistemas estadísticos con dos variables 


El sistema estadístico con dos variables toma como datos dos listas de valores, dan- 
do como resultado otra lista cuyos elementos son los siguientes: 


Número Elemento 


Coeficiente de correlación 

Constante de regresión 

Coeficiente de regresión 

Covarianza 

Desviación típica de los valores del eje Y 
Desviación típica de los valores del eje X 
Media de los valores del eje Y 

Media de los valores del eje X 


0 JD Un Eh Yun 
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El procedimiento que calcula todos estos valores es el siguiente: 


?to estadist :listy :listx 

>(local “my “mx “vary “varx “cov *“cr) 
>make “my media :listy 

>make “mx media :listx 

>make “vary varianza :listy :my 

>make “varx varianza :listx :mx 

>make “cov covar :listy :listx :my :mx 
>make “cr correg :cov :vary :varx :my :mx 
>op (se :cr :cov (raiz2 :vary) (raiz2 :varx) 
:my :mx) 

>end 

estadist defined 

?estadist [1 2 3 4 5] [10 8 6 4 2] 

[-1 6 —0.5 -4 1.4142135623731 2.82842712474619 
3 6] 

? 


No es necesario seguir profundizando en el tema de la regresión y la correlación, 
puesto que ya hemos conseguido el objetivo fundamental que nos propusimos al 
principio del capítulo: demostrar la importancia de los sistemas modulares en las 
aplicaciones numéricas. 


Dejo a los más interesados en este campo la tarea de dibujar los gráficos estadísticos 
y las líneas de regresión. 


Capítulo 11 


Tratamiento de matrices 


El LOGO que emplean los ordenadores CPC 464/664 no es un lenguaje muy rápido, 
ya que, para conseguir un lenguaje tan sumamente flexible, se necesita un intérprete 
bastante largo que hace que la ejecución de los procedimientos sea más lenta. 


Una de las tareas de programación más ardua y pesada es la realización de rutinas 
y procedimientos que permitan trabajar con matrices. En este capítulo vamos a de- 
dicarnos a desarrollar varios de estos procedimientos; LOGO facilita bastante el tra- 
bajo. En realidad muchas de las ideas en que nos vamos a apoyar proceden de otro 
lenguaje de programación muy importante: el APL. Recomiendo a los interesados 
en las técnicas de programación que investiguen a fondo este potente lenguaje. 


11.1 La matriz como tabla 


En primer lugar vamos a dejar bien claro qué entendemos por matriz. Una matriz 
no es más que una tabla de datos. 


En general podemos decir que cualquier disposición de datos en forma rectangular 
es una matriz, por ejemplo cualquier conjunto de datos clasificados por medio de 
índices. Las matrices no son más que estructuras de datos, así que el primer proble- 
ma a resolver es cómo vamos a guardar en la memoria los contenidos de una matriz. 
Consideremos por ejemplo la matriz A: 


123 
456 


Como puede verse, las matrices no tienen por qué ser complicadas. En este caso 
hay dos filas y tres columnas, seis elementos en total. 


Las matrices tampoco tienen por qué tener una disposición determinada. Puede 
cambiarse las filas por columnas, con lo que obtendríamos una variante de la matriz 
anterior a la que llamaremos B: 
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Realmente estas matrices no son totalmente distintas; ambas guardan una cierta re- 
lación: son matrices traspuestas. 


Algunos lenguajes de programación (como es este caso) distinguen entre filas y co- 
lumnas por la forma de guardar las matrices en la memoria. En general siempre 
hay que tener presente que el lenguaje no trabaja con la matriz en sí, sino con sus 
elementos. No podemos referirnos a la matriz como un bloque, sólo podemos ha- 
blar de elementos especificando la fila y columna de cada uno de ellos. Por ejem- 
plo, el número 6 es el elemento A(3,2) de la primera matriz, o el elemento B(2,3) 
de la segunda. 


En todos los casos, el orden de los índices encerrados entre paréntesis es número 
de fila, número de columna. 


Aunque hay lenguajes que permiten trabajar con matrices en conjunto, lo más habi- 
tual es que el tamaño de las mismas esté limitado y que sea necesario emplear proce- 
dimientos especiales para operar con ellas. Es muy interesante, por tanto, disponer 
de un conjunto de procedimientos en LOGO para aplicar en todos los casos y que 
sean suficientemente claros en su base conceptual. 


Ya se ha dicho que una matriz es una tabla de datos, es decir, una lista de números 
múltiple en la que cada fila es a su vez una sublista de números. De esta manera 
es factible guardar en la memoria la matriz A de la siguiente forma: 


?make “a [[1 2 3] [4 5 6]] 
? 


En este ejemplo cada fila es una sublista; las dos filas constituyen una lista completa 
que es la matriz. Éste es el método que se emplea en LOGO con más frecuencia, 
pero vamos a plantearnos un pequeño problema: ¿cómo pasar del ejemplo anterior 
a la matriz B? 


?make “b [[1 4] [2 5] [3 61] 


Este método de almacenamiento de matrices no me gusta nada; creo que no es ele- 
gante ni consistente. Hay que reconocer que con él la tarea de leer las filas se hace 
muy sencilla, ya que no son más que sublistas, pero perdemos totalmente la integri- 
dad de las columnas. 


Pienso que he encontrado una solución mejor. 


11.2 La matriz como propiedad 


Cuando empezamos a dar vueltas en la cabeza a la idea de las matrices en LOGO, 
llegamos invariablemente a la conclusión de que el hecho de que unos datos consti- 
tuyan una matriz representa una propiedad distinta de las que hemos tratado hasta 
ahora (llegué a esta idea con la colaboración de Chris Lusby-Taylor); es precisamen- 
te esta propiedad la que debemos aplicar a los datos en sí. 
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El paso siguiente fue decidir cómo dar forma a esta propiedad. Es en este punto 
donde he empleado algunas nociones de APL de David Weatherby, de I P Sharp 
Associates. De él surgió la idea de que una matriz no es más que una lista de ele- 
mentos a la que aplicamos un operador denominado ““tamaño””, es decir, para pasar 
de la matriz A: 


123 
456 


a una matriz C de la forma 


12 
34 
56 


lo único que hay que hacer es modificar el tamaño de la matriz. 


Las dos matrices proceden de la misma lista de números; la única diferencia aparen- 
te entre ambas está en el cambio de tamaño. Es evidente que, para obtener un resul- 
tado parecido, en LOGO son necesarios unos cuantos procedimientos que permitan 
escribir: 


?make “a [123 4 5 6] 
?tam “a [2 3] 
?¿make ”“c :a 
?tam “c [3 2] 
?¿matrlist “a 
123 

456 
?matrlist “c 
12 

34 

56 

? 


Lo único que hemos hecho ha sido introducir una lista de valores en a, indicando 
que el tamaño de a es [2,3]; a continuación hemos copiado la misma lista de valores 
en C, pero esta vez el tamaño de la matriz es [3,2]. Por último, el procedimiento 
matrlist permite imprimir en pantalla cualquier lista con forma de matriz, teniendo 
en cuenta el tamaño de la misma. 


Vamos a definir cada uno de los procedimientos empleados. Empezaremos con 
tam: 


?to tam :nom :dim 
>pprop :nom “.dim :dim 
>end 

tam defined 

? 
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El primer parámetro de tam es el nombre del objeto que tiene la propiedad que esta- 
mos definiendo, mientras que el segundo es el valor de la propiedad en sí. La primi- 
tiva pprop permite dar el valor :dim a la propiedad ”.dim. En esta propiedad se 
basa todo el sistema, y la empleará el procedimiento matrlist. 


Vamos a examinar detenidamente matrlist para profundizar en el sistema: 


?to matrlist :nom 

>(local “f “ctr) 

>make ”f first gprop :nom ”.dim 
>bucle “ctr 1 :f [pr fila :nom :ctr] 
>end 

matrlist defined 

? 


Este procedimiento hace intervenir a su vez a los procedimientos bucle y fila, pero 
antes de definir estos últimos vamos a ver cómo funciona matrlist. 


Este procedimiento emplea dos variables locales: f y ctr. La primera de ellas indica 
cuántas filas tiene la matriz representada con :nom; fíjese que hemos empleado la 
primitiva grop para atribuir el valor de “.dim a :nom. Recuerde así mismo que 
** dim contiene la lista con las dimensiones de la matriz. La segunda variable, ctr, 
sirve de contador del procedimiento bucle; su valor va desde 1 hasta f. 


El procedimiento bucle imprime el número de fila, :ctr, del objeto :nom teniendo 
en cuenta su tamaño, es decir, “.dim. 


Tras esto ya pueden explicarse los procedimientos fila y bucle. 


11.3 Bucles controlados 


La primitiva repeat de Dr LOGO permite realizar bucles, pero no controlarlos, da- 
do que su duración no está ligada al contenido de la lista de instrucciones. A conti- 
nuación está definido el procedimiento bucle, que proporciona un mayor control. 


El procedimiento es el siguiente: 


?to bucle :var :ini :fin :lista_bucle 
>if :ini > :fin [stop] 

>make :var :ini 

>run :lista_bucle 

>bucle :var :ini + 1 :fin :lista_bucle 
>end 

bucle defined 

? 


He definido el procedimiento de forma recurrente porque resulta algo más cómodo 
y atractivo, y al mismo tiempo hace mínimo el número de variables locales y de ins- 
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trucciones make necesarias. Sus parámetros son :var, que representa el nombre de 
la variable del bucle y que se emplea en las instrucciones de bucle__lista, :ini, que 
representa el valor inicial, y :fin, que representa el valor final. El bucle se detiene 
en cualquier momento en que el valor inicial sobrepase al valor final. 


Este procedimiento puede ser de utilidad en muchos otros casos y se asemeja ligera- 
mente a los bucles FOR de otros lenguajes. El procedimiento matrlist hace uso del 
procedimiento bucle para pasar por todas las filas de una en una, siendo ctr la va- 
riable que representa en cada momento el número de fila. La numeración de las 
filas va de 1 a f en sentido creciente. Habitualmente trabajamos con bucles en los 
que el contador va creciendo hasta alcanzar su valor máximo; no obstante también 
puede ser de interés el procedimiento +bucle, en el que el contador del bucle va to- 
mando valores descendentes. 


?to fbucle :var :ini :fin :lista_bucle 

> if :ini > :fin [stop] 

>make :var :ini 

>run :lista_bucle 

>+fbucle :var :ini — 1 :fin :lista_bucle 
>end 

K+bucle defined 

? 


Este procedimiento hace que el contador :var descienda desde el valor :ini hasta el 
valor :fin de unidad en unidad. Vamos a emplearlo en los procedimientos fila y 
col. 


?to fila :nom :f 

>(local “temp “ctr) 

>make ”ctr item 2 gprop :nom ”.dim 

>make “temp [ ] 

>fbucle “ctr :ctr 1 [make “temp se (elem :nom 
:f :ctr) :temp] 

>o0p :temp 

>end 

fila defined 

?to col :nom :c 

>(local “ctr “temp) 

>make “ctr first gprop :nom ”.dim 

>make “temp [ ] 

>fbucle “ctr :ctr 1 [make “temp se (elem :nom 
:ctr :c) :temp] 

>0p :temp 

>end 

col defined 

? 
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El procedimiento fila emplea dos parámetros: :nom, que contiene el nombre de la 
matriz, y :f, que contiene el número de la fila. 


A su vez, la variable local temp sirve para almacenar el contenido de la fila que 
nos ocupa temporalmente en cada pasada del bucle. Por su parte, ctr toma al princi- 
pio del procedimiento como valor el número de columnas de la matriz (el segundo 
elemento de la lista ”*.dim). Más adelante, al llegar al procedimiento +bucle, la va- 
riable ctr pasa a ser el contador del bucle. El procedimiento +bucle crea la variable 
local temp con elementos de la lista tomados desde la derecha de la misma y añadi- 
dos a la izquierda de temp por medio de se. 


El procedimiento construye la primera fila de la matriz a de la siguiente manera: 
[1, [31, [2 3] y por último [1 23]. Si hubiésemos empleado bucle habríamos obteni- 
do la misma fila en orden contrario al anterior, añadiendo elementos con se a la 
derecha de la lista temp. El procedimiento col es similar al anterior; vuelve a hacer 
uso de bucle, lo que quiere decir que cada columna se forma de abajo hacia arri- 
ba. Estos procedimientos permiten hacer referencia a una fila o a una columna de- 
terminada de la matriz con la que estemos trabajando, con lo que el tratamiento de 
matrices queda muy simplificado. 


11.4 Cómo elegir un elemento 


Los procedimientos que acabamos de ver hacen uso de uno básico, elem, en el que 
se basan prácticamente todos los que facilitan de alguna forma el tratamiento de 
matrices. 


En pocas palabras, elem emplea dos parámetros, un número de fila y un número 
de columna, y da el elemento correspondiente de una matriz determinada. La selec- 
ción del procedimiento se realiza como si estuviésemos trabajando en APL: 


?make “z [1 2 3 4] 
?tam “z [3 5] 
?2matrlist “z 
12341 

23412 

34123 

? 


En este caso, la lista de valores, es decir, la propiedad .APV de la variable z, no 
tiene más que cuatro elementos, pero al haber definido el tamaño de z como [3 5], 
la matriz debe tener quince elementos. 


Desde luego los dos números de elementos no concuerdan, quince es considerable- 
mente superior a cuatro, así que podemos hacer dos cosas: o bien enviar un mensaje 
de error, o bien aumentar la lista de cuatro elementos hasta quince. Esto último 
es lo que realiza APL. En el ejemplo anterior podemos ver claramente cómo hemos 
aumentado la lista de elementos: al llegar al quinto elemento de la matriz, es decir, 
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a la quinta columna de la primera fila, volvemos al primer elemento de la lista de 
valores, repitiendo el proceso tantas veces como sea preciso. 


Por el contrario, si emplea la siguiente alternativa: 


?tam “z [2 1] 
?matrlist “z 
1 

2 

? 


puede observar que si la matriz solicita menos elementos que los contenidos en la 
lista, LOGO no toma más que los que le hacen falta. Siempre queda el recurso de 
modificar la definición de elem, de forma que el número de elementos de la lista 
coincida forzosamente con el número de elementos de la matriz. 


A continuación se dan las definiciones de elem y de otro procedimiento denomina- 
do mod: 


?to elem :nom :f :c 

>(local “ctr “tc “apv) 

>make “apv gprop :nom ”.APV 
>make “tc item 2 gprop :nom ”“.dim 
>make “ctr 1 + mod ((:f — 1) x* :tc + 
¿Cc — 1) (count :apv) 

>o0p item :ctr :apv 

>end 

elem defined 

?to mod :num :div 

>0p :num — :div * int (:num / :div) 


>end 

mod defined 
?int 15/4 

3 

74 x* 15/4 

12 

715 — 4 x* int 15/4 
3 

?mod 15 4 

3 

? 


Vamos a comenzar con mod. Este procedimiento da el resto de la división entera 
del primer dato por el segundo. Para ver cómo funciona no hay más que fijarse 
en las líneas que siguen a la definición del procedimiento. int es una primitiva que 
realiza la división entera de dos números. 


El procedimiento elem hace uso de tres variables locales: ctr, en la que introduci- 
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mos el número del elemento de la lista que vamos a elegir, tc, en la que introducimos 
el número de columnas de la matriz y que ya hemos visto que es el segundo elemento 
de la lista “.dim, y por último apv, en la que guardamos el valor de la propiedad 
.APV de la matriz :nom. El funcionamiento del procedimiento elem merece un 
estudio detenido, en particular la línea make “ctr 1 +... 


El procedimiento elem es muy fácil de utilizar; no hay más que introducir el nombre 
de la matriz y los números de fila y columna del elemento que interesa. De esta forma, 
mientras en otros lenguajes pedimos el elemento alf,c], en LOGO se solicita el elemen- 
to elem “a :f :c. Al examinar los siguientes procedimientos podrá apreciar qué signi- 
fica esta simplificación, ya que aporta un método para ““indexar”” matrices. 


11.5 Trasposición de matrices 


El primer procedimiento que vamos a ver, que también es el más sencillo de concep- 
to, determina la matriz traspuesta de una dada, teniendo en cuenta que ahora ya 
contamos con un método que permite establecer la estructura de datos de una matriz 
con .APV y .dim. 


Estudie la siguiente secuencia: 


?crear “a [1 2 3 4] [3 5] 
?¿matrlist “a 
12341 
23412 
34123 
?copiar “c “a 
?matrlist “c 
12341 
23412 
34123 
?trans “b “a 
?matrlist “b 
123 

234 

341 

412 

123 

?plist “b 
[.dim [5 3] APV[1232343414121] 
2 3] 

? 


El primer dato del procedimiento crear es el nombre de la matriz, el segundo es la 
lista de valores y el tercero es el tamaño o dimensiones de la propia matriz. El pro- 
cedimiento matrlist permite ver la matriz resultante. 
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El procedimiento copiar, como su propio nombre indica, permite copiar los conteni- 
dos de una matriz en otra diferente. En el ejemplo anterior se ha empleado para crear 
la matriz c a partir dela a. Por su parte, el procedimiento trans permite determinar 
la matriz traspuesta de una dada, como se puede comprobar por medio de matrlist o 
pidiendo una lista de las propiedades de la matriz con la primitiva plist. Observe que 
al construir una matriz con trans la lista de valores se adapta exactamente a la nueva 
estructura de datos, es decir, la lista tiene tantos datos como la matriz. 


Hay dos procedimientos que se emplean para crear matrices; son los siguientes: 


?to crear :nom :apv :dim 
>make :nom :apv 

>tam :nom :dim 

>end 

crear defined 

?to copiar :dest :orig 

>make :dest gprop :orig ““.APV 
>tam :dest gprop :orig ”.dim 
>end 

copiar defined 

? 


No debe tener ningún problema para comprenderlos; recuerde que al principio del 
capítulo se definió el procedimiento tam. Es posible que el tercer procedimiento, 
trans, sea un poco más difícil de comprender. 


?to trans :dest :orig 

>make :dest transval :orig 
>tam :dest :invertir :orig 

>end 

trans defined 

?to transval :nom 

>(local “fc “temp) 

>make “fc gprop :nom “.dim 
>make “temp [ ] 

>bucle “fc 1 (item 2 :fc) [make “temp se :temp 
col :nom :fc] 

>o0p :temp 

>end 

transval defined 

?to invertir :nom 

>local “mid. 

>make “mid. gprop :nom “.dim 
>0p se item 2 :mid. item 1 :mid. 
>end 

invertir defined 

q 
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Aunque estos procedimientos son un poco más complejos, no creo que necesite mi 
ayuda para comprenderlos. Conviene tener presente en todo momento que las co- 
lumnas de la matriz origen pasan a ser las filas de la matriz destino. 


11.6 Combinación de matrices 


Los dos métodos de combinación de matrices que daré a continuación se basan en 
lo que considero que son las desventajas del APL, aunque probablemente los pro- 
gramadores de APL no estén de acuerdo conmigo. No es mi intención dar muchas 
explicaciones sobre estos procedimientos; prefiero aplicarlos a unos cuantos ejem- 
plos y dejar que el lector descubra cómo hemos obtenido los resultados en cada 
caso. 


La siguiente secuencia ilustra el fucionamiento del procedimiento matrop. 


?crear “a [1 2 3 4] [2 3] 
?matrlist “a 

123 

412 

?matrop “b “+ “a “a 
?¿matrlist “b 

246 

824 

?matrop “b “x* “a “a 7 
?matrlist “b 

149 

1614 

?2matrop “c “_ “b “a 
?matrlist “c 

026 

1202 

?trans “b “a 

?matrlist “b 


?matrop “c “x* “b “a 
dimensiones incompatibles 
? 


El mensaje de la última línea indica que se puede emplear matrop con matrices de 
tamaños diferentes. En esencia, matrop toma dos matrices (m1 y m2) y realiza con 
ellas, elemento a elemento, la operación que determina el operador que asigne al 
segundo parámetro, almacenando el resultado final en la matriz que indique en el 
primer parámetro. El segundo parámetro de matrop puede ser cualquier procedi- 
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miento que haya definido usted mismo, siempre y cuando actúe sobre dos paráme- 
tros, que serán los dos elementos de la matriz. 


A continuación puede ver la definición de matrop: 


?to matrop :res :oper :m1 :m2 

>if not = (gprop :m1 “.dim) (gprop :m2 “.dim) 
[pr [dimensiones incompatibles] stop] 
>(local “fc “filas “cols “fi “ci “temp) 
>make “temp [ ] 

>make “fc gprop :m1 ”.dim 

>make “filas item 1 :fc 

>make “cols item 2 :fc 

>bucle “fi 1 :filas [bucle “ci 1 :cols [make 
“temp (se :temp run (se :oper elem :m1 :fi 
¿Ci :fc elem :m2 :fi :ci :fc))]] 

>pprop :res “.dim :fc 

>make :res :temp 

>end 

matrop defined 

? 


Este procedimiento se parece bastante al procedimiento combinar, que ya había- 
mos utilizado en el sistema estadístico. Observe cómo se ha empleado la primitiva 
run para ejecutar una lista de instrucciones. 


El último procedimiento que vamos a ver es bastante más técnico que los anteriores, 
pero no está explicado a fondo; aquellos lectores que deseen profundizar un poco 
en el tema de las matrices pueden consultar el libro ““Teach Yourself: New Mathe- 
matics””, de L C Pascoe. Este procedimiento calcula el producto de matrices cuan- 
do el segundo parámetro es “*, 


Antes de pasar a definir el procedimiento, una pequeña introducción: 


?crear “a [1 2 3] [1 3] 
?trans “b “a 
?matrlist “b 

1 

2 

3 

?matrlist “a 

123 

?matropx “c “x “b “a 
?matrlist “c 

123 

246 

369 
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?matropx “d “x “a “b 
?2matrlist “d 

14 

?tam “a [2 3] 
?¿matrlist “a 

123 

123 

?trans “b “a 

?matrlist “b 


?2matropx “c “* “a “b 
?matrlist “c 

14 14 

14 14 

?matropx “d “x* “b “a 
?matrlist “d 

246 

48 12 

6 12 18 

?crear “a [1233 2 1] [2 3] 
?matrlist “a 

123 

321 

?trans “b “a 

?matrlist “b 


?¿matropx “c “x* “a “b 
?¿matrlist “c 

14 10 

10 14 

? 


Las definiciones de los procedimientos son las siguientes: 


?to matropx :res :oper :m1 :m2 

>if not = (item 1 gprop :m1 “.dim) (item 2 
gprop :m2 ”.dim) [pr [dimensiones 
incompatibles] stop] 

>(local “fc “filas “cols “fi “ci “temp) 
>make “temp [ ] 

>make “filas item 1 gprop :m1 “.dim 
>make “cols item 2 gprop :m2 “.dim 
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>bucle “fi 1 :filas [bucle “ci 1 :cols [make 
“temp (se :temp sigma combinar :oper 
fila :m1 :fi col :m2 :ci)]] 

>pprop :res ”.dim se :filas :cols 

>make :res :temp 

>end 

matropx defined 

?to sigma :l 

>(local “temp “ctr) 

>make “temp 0 

>make “ctr count :l 

>bucle “ctr 1 :ctr [make “temp :temp + item 
:ctr :I] 

>0p :temp 

>end 

sigma defined 

?to combinar :oper :11 :12 

>if not = (count :11) (count :12) [pr [Error 
en las dimensiones] stop] 

>(local “temp “i) 

>make “temp [ ] 

>bucle ”i 1 count :11 [make “temp se :temp run 
(se :oper item :i :11 item :i :12)] 

>0p :temp 

>end 

combinar defined 

? 
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Observe que los procedimientos combinar y sigma son diferentes de los definidos 


en el sistema estadístico. Es interesante compararlos. 


Capítulo 12 
PROLOGO 


En este capítulo voy a sentar los principios de una base de datos que tiene ciertas 
similitudes con PROLOG, un lenguaje de la quinta generación. Desde luego no es 
mi intención cubrir todas las funciones de PROLOG, pero espero demostrar que 
una versión de LOGO relativamente pequeña, consigue efectos muy interesantes. 


Lo que intento es conseguir una base de datos que sea funcionalmente equivalente 
a PROLOG, pero sería inútil intentar imitar en todos sus detalles a este lenguaje. 
Por ejemplo, la versión de PROLOG para micros emplea el siguiente sistema para 
añadir datos nuevos a otros ya existentes: 


€.add(enrique padre__de isabel__1I) 
mientras que el método funcionalmente equivalente en LOGO es: 
?pprop “enrique “padre__de ”isabel__ ll 


De forma similar trabajaré en el resto de los casos. 


12.1 Hechos y relaciones 


En su nivel más sencillo, PROLOG trabaja con ““*hechos””, afirmaciones del tipo 
“Sujeto Relación Objeto””, o en términos de LOGO “Objeto Propiedad Conteni- 
do”. Al registrar el hecho ““Enrique es padre__de Isabel_11””, realmente se añade 
dos datos a la base; para ello se emplea el procedimiento add: 


?to add :suj :rel :obj 

>pprop :suj :rel :obj 

>pprop :obj word “era__ :rel :suj 
>end 

add defined 

?add “enrique “padre__de “isabel__ll 
?plist “enrique 

[padre__de isabel__1I] 

?plist “isabel__ll 

[era__padre__de enrique] 

? 
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Este procedimiento deja sin resolver un pequeño detalle: 


?add “enrique “padre__de “eduardo 
?plist “enrique 

[padre__de eduardo] 

? 


La respuesta a la instrucción plist no es completa, ya que debería decir que enrique 
tuvo dos hijos; así que en lugar de emplear la primitiva pprop debemos emplear el 
procedimiento adprop, que añade información a las propiedades ya existentes: 


?to adprop :nom :prop :conten 

>pprop :nom :prop se :conten gprop :nom 
:prop 

>end 

adprop defined 

?to add :suj :rel :obj 

>adprop :suj :rel :obj 

>adprop :obj word “era__ :rel :suj 

>end 

add defined 

?add “enrique “padre__de “eduardo 

?add “enrique “padre__de “isabel__ll 

?plist “enrique 

[padre__de [isabel__1l eduardo]] 

?add “enrique “era “varon 

?plist “enrique 

[era [varon] padre__de [isabel__1l eduardo]] 
? 


Pero aún queda por resolver un detalle; si escribimos: 


?add “enrique “padre__de “eduardo 
?gprop “enrique “padre__de 
[eduardo isabel__Il eduardo] 

? 


tenemos que encontrar algún sistema para evitar que se duplique la información que 
hay registrada al introducir dos veces un dato. La solución es introducir una peque- 
ña modificación en el procedimiento adprop: 


?to adprop :nom :prop :conten 

>if yaprop :conten gprop :nom :prop [stop] 
>pprop :nom “CLAVE [x] 

>pprop :nom :prop se :conten gprop :nom 
:prop 


CÓMO CREAR UNA BASE DE DATOS 111 


>end 

adprop defined 

?to yaprop :elem :enlista 

>if 0 = count :enlista [op “FALSE] 

>if :elem = first :enlista [op “TRUE] [op 
yaprop :elem bf :enlista] 

>end 

yaprop defined 

rá 


El procedimiento yaprop existe en forma de primitiva en algunas versiones de LO- 
GO. Su resultado es TRUE en caso de que el :elemento dado pertenezca a la lista 
:enlista. La línea que incluye la palabra “CLAVE no es imprescindible; su única 
utilidad real aparece a la hora de diferenciar un objeto dentro de la base de datos. 
Más adelante se la empleará para guardar la base de datos como si se tratase de un 
valor. 


12.2 Cómo crear una base de datos 


Una vez definidos los procedimientos anteriores, conviene grabarlos en disco y salir 
de LOGO. Con ello, al volver a cargar LOGO tendremos libre el área de trabajo 
y podremos volver a empezar desde cero. Vamos a emplear como ejemplo de base 
de datos la FAMILIA del rey Enrique VIII de Inglaterra, definida por K L Clark, 
F G McCabe y J R Ennals en sus «Fundamentos de micro-PROLOG». El procedi- 
miento es el siguiente: 


?add “enrique__VIl “padre__de “enrique 
?add “enrique “padre__de “isabel__ll 
?add “enrique “padre__de “eduardo 
?add “catalina “madre__de “isabel__ll 
?add “ana “madre__de “isabel__ll 
?add “juana ““madre__de “eduardo 
?add “enrique__VIl “era “varon 

?add “enrique “era “varon 

?add “eduardo “era “varon 

?add “isabel__l “era “mujer 

?add “catalina “era “mujer 

?add “maria “era “mujer 

?add “isabel__ll “era mujer 

?add “ana “era “mujer 

?add “juana “era “mujer 

? 


En el libro arriba citado los autores solicitan a PROLOG una lista de todos los casos 
en los que exista la relación madre_de. El equivalente en LOGO es solicitar to- 


112 PROLOGO 


dos los elementos que tengan la propiedad madre_ de, junto con el propio objeto, 
la propiedad y su contenido. Para ello vamos a definir el siguiente procedimiento: 


?to listacon :prop 
>conprop :prop glist :prop 
>end 

listacon defined 

?to conprop :prop :enlista 
>if emptyp :enlista [stop] 
> (pr first :enlista :prop (list gprop first 
:enlista :prop)) 

>conprop :prop bf :enlista 
>end 

conprop defined 


?listacon “madre__de 

catalina madre__de [maria] 

ana madre__de [isabel__lI] 

juana madre__de [eduardo] 

isabel__l madre__de [enrique] 
?listacon “padre__de 

enrique padre__de [eduardo isabel __lI] 
enrique__VIl padre__de [enrique] 


Ahora suponga que queremos saber si enrique fue padre_ de isabel_ll o si cata- 
lina fue madre__de eduardo; nada más fácil. Fíjese que en el segundo ejemplo 
hemos invertido los términos de la pregunta: 


?yaprop “isabel__ll gprop “enrique “padre__de 
TRUE 

?yaprop “catalina gprop “eduardo “era__madre__de 
FALSE 


Y ahora, si queremos saber quién era la madre__de maria escribimos: 


?gprop “maria “era__madre__de 
[catalina] 

?to condos :I1 :12 

>if emptyp :11 [op [1] 

>if yaprop first :11 :12 [op se first :11 
condos bf :l1 :12] [op bf :I1 :12] 
>end 

condos defined 

?condos gprop “enrique__VIl “padre__de gprop “isabel__ll 
“era__padre__de 

[enrique] 

? 
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Las últimas líneas indican que enrique tuvo por padre a enrique VII y que, a su 
vez, era el padre de isabel_l!. 


Todos estos ejemplos proceden del libro de PROLOG citado anteriormente, y per- 
miten apreciar que LOGO puede responder perfectamente a una serie de consultas 
sencillas propias de PROLOG. Antes de seguir adelante habrá que grabar en disco 
la base de datos. 


12.3 Cómo grabar en disco una base de datos 


Al grabar en disco el área de trabajo, LOGO graba automáticamente todas las pro- 
piedades, ya sea en relación con make o con pprop. Esto quiere decir que para 
grabar en disco la base de datos no hay más que grabar el área de trabajo en la for- 
ma habitual. Para ver cómo ha quedado registrada la base de datos puede usted 
salir a CP/M y sacar en pantalla una copia del fichero correspondiente. 


Suponga que queremos almacenar la base de datos, o parte de ella, en una variable; 
por ejemplo: 


?glist “CLAVE 

[catalina enrique isabel__l ana juana maria 
varon eduardo mujer isabel__ll enrique__VII] 
? 


La primitiva glist proporciona todos los objetos que tengan la propiedad definida 
en su parámetro. Esta es la causa por la que hemos incluido en adprop la línea con 
CLAVE; ahora podemos distinguir unos objetos de la base de datos de otros según 
el contenido de la propiedad CLAVE. También podemos asignar la base de datos 
a un objeto con las siguientes instrucciones: 


?¿make “parte soloparte 
? 


que se encargan de almacenar la base en el objeto parte. Esto permite examinar 
la base de datos con :parte o con grop “parte “.APV. A continuación está defini- 
do el procedimiento soloparte, que se basa en la primitiva glist: 


?to soloparte 

>local “temp 

>make “temp [] 
>soloaux glist “CLAVE 
>0p :temp 

>end 

soloparte defined 

?to soloaux :en 

>if emptyp :en [stop] 
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>make “temp fput first :en fput plist first 


:en :temp 
>soloaux bf :en 
>end 

soloaux defined 
? 


El primer procedimiento, soloparte, no es más que una introducción a soloaux, 
en el que se define la variable local temp. El segundo procedimiento, soloaux, re- 
cibe como parámetro una lista de objetos y coloca al principio de la lista temp las 
propiedades del primer elemento de la lista dato. A continuación el procedimiento 
se llama a sí mismo en forma recurrente, empleando como parámetro el resto de 
los elementos de la lista inicial. 


Al grabar el área de trabajo en disco, se graba automáticamente toda la información 
que contiene parte. Es probable que el hecho de almacenar la base de datos en una 
variable no sea de gran utilidad práctica, pero ilustra bastante bien todo lo que se 
puede conseguir procesando listas. 


12.4 Cómo recuperar la base de datos 


Una vez que hemos borrado el área de trabajo saliendo a CP/M y volviendo a LO- 
GO, podemos volver a cargar el área de trabajo que habíamos grabado en disco, 
con lo cual tendremos en memoria al mismo tiempo un objeto denominado parte 
que contiene la base de datos y la propia base de datos en sí. Necesitamos *“*“desen- 
paquetar”” cada elemento individual contenido en parte. 


Para proceder al desempaquetado, usaremos dos procedimientos que hasta cierto 
punto son las imágenes reflejas de los utilizados para almacenar la base de datos: 


?to separar :en 

>if emptyp :en [stop] 

>sepaux first :en item 2 :en 
>separar bf bf :en 

>end 

separar defined 

?to sepaux :nom :en 

>if emptyp :en [stop] 

>pprop :nom first :en item 2 :en 
>sepaux :nom bf bf :en 

>end 

sepaux defined 

?separar :parte 

?plist “parte 

[.APV [enrique__VII [era [varon] padre__de 
[enrique] CLAVE [x]] isabel__1! ... 
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Con todos estos procedimientos ya estamos en condiciones de grabar en disco y re- 
cuperar nuestra base de datos. Como ya he indicado, es posible que estas rutinas 
no tengan ninguna utilidad práctica en este caso, pero de todas formas ilustran bas- 
tante bien un grupo de técnicas de programación que son muy útiles. 


En resumen, ya sabemos cómo establecer reglas y comprobar si se cumplen. Por 
ejemplo, el hermanastro de una persona es otra persona que tenga su mismo padre 
o su misma madre, pero no ambos porque en este caso sería su hermano. Queda 
por último otra posibilidad, que es definir estas reglas en forma de propiedades. 


El desarrollo de todas estas posiblidades quedan en manos del lector. Para comen- 
zar puede buscar la manera de borrar parte de la base de datos. Es muy sencillo 
borrar propiedades con la primitiva remprop, pero no es tan sencillo borrar parte. 
De todas formas, puede conseguirse... 


Apéndice A 


LOGO: Órdenes y primitivas 


Se incluye en este apéndice un juego completo de las órdenes y primitivas de la ver- 
sión de LOGO que emplean los ordenadores Amstrad, junto con ejemplos que ilus- 
tran el funcionamiento de cada una. Muchas de ellas han aparecido con anteriori- 
dad a lo largo de la Guía, pero no han sido tratadas todas con el debido detalle. 


Es interesante que el lector practique a lo largo de este apéndice el uso de las primiti- 
vas que no han aparecido hasta ahora. 


Todas las instrucciones aparecen en orden alfabético, es decir, según los códigos 
ASCII de los caracteres que componen cada una de ellas, no agrupadas según las 
funciones que realizan. He seguido este criterio porque habitualmente lo que recor- 
damos con más claridad es el nombre de las instrucciones. Si usted quiere investigar 
sobre una orden, generalmente es su función lo que le será de interés. 


* 


Este operador da el resultado de multiplicar los dos datos que le acompañan. Puede 
emplearse como prefijo o como infijo; en ambos casos suele ser útil emplear parén- 
tesis para aclarar el orden en que se deben realizar las operaciones. 


72 * 3 
6 
?7r 22 
4 
? 


+ 


Este operador da el resultado de sumar los dos datos que le acompañan. Puede em- 
plearse como prefijo o como infijo; en ambos casos suele ser útil emplear paréntesis 
para aclarar el orden en que se deben realizar la operaciones. 


?22 + 3 
5 
74 22 
4 
? 
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Este operador da el resultado de restar el dato que aparece a la izquierda del dato 
de la derecha. Puede emplearse como prefijo o como infijo; en ambos casos suele 
ser útil emplear paréntesis para aclarar el orden en que se deben realizar las 
Operaciones. 


?2-3 

1 

?- 22 

0 

Ls 
.APV 


Se trata de una propiedad estándar del sistema que representa el valor de una varia- 
ble global. Al solicitar el valor de .APV para una variable local se obtendrá el resul- 
tado nulo. 


?¿make “a 9 
?gprop “a “.APV 
9 


?to prueba 

>local ”b 

>make ”b 9 

>o0p gprop “b ”.APV 
>end 

prueba defined 
?prueba 

[] 

? 


Es posible emplear .APV para crear la primitiva thing, que contienen otras versio- 
nes de LOGO, por medio del siguiente procedimiento: 


?to thing :nombre 

>0p gprop :nombre ”“.APV 
>end 

thing defined 

7 


pero recuerde que esto no funciona con variables locales por las razones vistas en 
el primer ejemplo. 
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.contents 
Esta orden no lleva parámetros. Indica los contenidos del área de trabajo. 


?.contents 
[emptyp fput po ...] 
? 


El área de trabajo contiene todas las primitivas de LOGO, junto con los procedi- 
mientos y variables que define el ususario y los errores cometidos al introducir los 
datos. LOGO mantiene el nombre de los procedimientos en el área de trabajo aun- 
que hayan sido borrados. Estos nombres son listas sin propiedades de ningún tipo; 
por tanto LOGO da por hecho que tales nombres no representan nada y los mantie- 
ne fuera de uso. 


«DEF 


Es una propiedad estándar del sistema y representa la definición de un procedimiento. 


?gprop “prueba ”.DEF 

[[] [local “b] [make “b 9] lop gprop 
“b “.APVI 

? 


Ya hemos visto que, al borrar un procedimiento, LOGO mantiene el nombre del 
mismo en el área de trabajo, pero borra la propiedad .DEF que asocia dicho nombre 
con la definición de un procedimiento. 


La lista obtenida como resultado contiene la definición del procedimiento en cierto 
orden un tanto especial. La primera sublista contiene los parámetros del procedi- 
miento y cada una de las siguientes sublistas representa una línea de la propia defini- 
ción. Es interesante comparar la definición de prueba que hemos visto al hablar 
de .APV con el resultado de grop “prueba ”.DEF. 


«deposit 


Esta primitiva emplea dos parámetros; su función es colocar el valor del segundo 
de ellos en la posición de memoria que indica el primero. Véase también .examine. 


?.examine 0 

19% 

?.deposit 0 195 

?.deposit O 195+ 1024 

.deposit doesn't like 1219 as input 
? 
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El valor del segundo parámetro debe ser inferior a 256, ya que cada posición de me- 
moria contiene un byte y con un byte podemos representar números entre O y 255. 


.examine 


Esta primitiva emplea solamente un parámetro: el número correspondiente a una 
posición de memoria. Proporciona el valor que contiene dicha dirección. 


?.examine 0 
19 
? 


Véase asimismo la primitiva .deposit. 


.PRM 


Se trata de una propiedad estándar del sistema que proporciona la posición de me- 
moria en que comienza la rutina en código de máquina de cualquier primitiva de 
LOGO que sea solicitada. 


?gprop “emptyp “.PRM 
3489 
? 


Teóricamente, este dato permite introducir modificaciones en las rutinas en código 
de máquina sin más que modificar el valor de la propiedad. También se puede em- 
plear .PRM para obtener todas las primitivas que reconoce LOGO. Tenga en cuen- 
ta que si empleamos .contents para obtener el mismo resultado, es muy difícil sa- 
ber exactamente cuáles son las primitivas en sí. 


?glist “.PRM 
[emptyp fput po dir op ...] 
? 


/ 


Este operador da el resultado de dividir el dato de la izquierda por el de la derecha. 
Puede emplearse como prefijo o como infijo; en ambos casos suele ser útil emplear 
paréntesis para aclarar el orden en que se deben realizar las operaciones. 
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< 


Este operador indica si el dato de la izquierda es menor que el de la derecha. Puede 
emplearse como prefijo o como infijo; en ambos casos suele ser útil emplear parén- 
tesis para aclarar el orden en que se deben realizar las operaciones. 


72<3 
TRUE 
1<22 
FALSE 
21"a<"b 
TRUE 
?<"a"B 
FALSE 

? 


Cuando empleamos este operador con caracteres, el ordenador realiza la compara- 
ción de los códigos ASCII correspondientes. 


Este operador indica si el dato de la izquierda es igual al de la derecha. Puede em- 
plearse como prefijo o como infijo; en ambos casos suele ser útil emplear paréntesis 
para aclarar el orden en que se deben realizar las operaciones. 


?2=3 
FALSE 
?= “a “a 
TRUE 

? 


> 


Este operador indica si el dato de la izquierda es mayor que el de la derecha. Puede 
emplearse como prefijo o como infijo; en ambos casos suele útil emplear paréntesis 
para aclarar el orden en que se deben realizar las operaciones. 


?22>3 
FALSE 
?2> 22 
FALSE 
?1"a>”"b 
FALSE 
(>"a”"B 
TRUE 

? 
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Cuando empleamos este operador con caracteres, el ordenador realiza la compara- 
ción de los códigos ASCII correspondientes. 


and 


Se trata de un operador prefijo que indica, por medio de TRUE o FALSE, si todos 
los datos que aparecen a continuación del mismo son ciertos. En caso de emplear 
más de dos datos es preciso encerrarlos, junto con la primitiva, entre paréntesis. 


?and “TRUE “TRUE and “TRUE “FALSE 
TRUE 

FALSE 

?(and “TRUE “TRUE FALSE) 

FALSE 

? 


ascii 


Este operador solamente emplea un dato, habitualmente un carácter. Su resultado 
es el valor del código ASCII de dicho carácter. 


?ascii “a 
97 

?ascii “abc 
97 

? 


En caso de que el dato sea una palabra, el operador sólo tiene en consideración el 
primer carácter. Si el dato es una lista, LOGO responde con un mensaje de error. 


?ascii [a] 
ascii doesn't like [a] as input 
? 


bf 


Abreviatura de “but first”. Proporciona todos los elementos de un objeto menos 
el primero. 


?bf “abc bf [a b cl] bf 12345 
bc 

[b cl] 

2345 

? 
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En caso de que el objeto sea una lista formada por sublistas, bf trabaja de la siguien- 
te manera: 


?bf [la b] [c d el [f g h]] 

[[c d el [f g h]] 

?bf bf [la bl] [c d el [f g hl] 
[[f g hl] 

?bf bf bf [la b] [c d el [f g hl] 
[1 

? 


bk 


Abreviatura de ““back””. Esta primitiva hace que la tortuga retroceda un número 
de unidades igual al dato que la acompaña. Si este dato es negativo, la tortuga 
avanza en lugar de retroceder. 


?bk 20 
?bk —20 
? 


bl 


Abreviatura de “but last”. Proporciona todos los elementos de un objeto menos 
el último. 


?bl “abc bl [1 2 3] bl 12345 


En caso de que el objeto sea una lista formada por sublistas, bf trabaja de la siguien- 
te manera: 


?bl [la b] [c d el [f g h]] 

[la b] [c d ell 

?bl bl [la b] [c d el [f g h]] 
[la b]] 

?bl bl bl [la b] [c d el [f g hl] 
[] 

? 
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buttonp 


Abreviatura de ““button pressed””. Esta primitiva lleva un parámetro que puede to- 
mar los valores 0 o 1, y nos indica, por medio de TRUE o FALSE, si está pulsado 
el botón del joystick correspondiente al parámetro. 


?buttonp 0 
FALSE 
? 


Como consecuencia de la forma en que el joystick emula al teclado, su uso puede 
hacer aparecer caracteres en pantalla. 


bye 


Esta orden no lleva ningún parámetro. Su función es abandonar LOGO y volver 
a CP/M. 


?bye 
A> 


catch 


Esta primitiva emplea dos parámetros; el primero es el nombre o etiqueta que identi- 
fica a la instrucción catch, mientras que el segundo es una lista de sentencias a eje- 
cutar. Cuando el ordenador encuentra en la instrucción catch una orden throw 
con la misma etiqueta, salta a la línea de instrucciones siguiente a catch. 


?to prueba 

>catch “si [otroproc] 

>pr [se ha pulsado el boton] 
>end 

prueba defined 


?to otroproc 

>if buttonp 0 [throw “sil 
>otroproc 

>end 

otroproc defined 
?prueba 

se ha pulsado el boton 

e 
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En este caso el procedimiento prueba contiene la línea catch “si (otroproc), que 
se encarga de ejecutar el procedimiento otroproc. LOGO conserva en memoria la 
etiqueta de catch, es decir, si. El procedimiento otropoc se encarga a su vez de 
comprobar si se ha pulsado el botón del joystick y, en caso contrario, vuelve a lla- 
marse a sí mismo en forma recurrente, permaneciendo dentro de este bucle hasta 
que sea pulsado el botón. 


Cuando se pulsa el botón, LOGO ejecuta la instrucción throw ”si, que devuelve 
el control a la etiqueta si y por tanto a la sentencia catch. Observe que el ordena- 
dor sólo ejecuta la primitiva catch si la instrucción throw proviene de un procedi- 
miento al que ha llamado la lista de instrucciones del propio catch. Finalmente, 
el control pasa a la sentencia que sigue a catch, en este caso pr. 


char 


Esta primitiva admite un número como parámetro y proporciona el carácter corres- 
pondiente al código ASCII. Por ejemplo: 


?to timbre 
>0p Char 7 
>end 

timbre defined 
?timbre 

? 


Con esta primitiva es posible enviar caracteres de control al sistema, tal y como ya 
hemos visto para fijar los colores. Por ejemplo, char 7 es equivalente a [CTRL]G] 
según el convenio ASCII, pero al pulsar [cTrL][[G] en LOGO el generador de sonido 
no emite un zumbido, como corresponde al código ASCII; por el contrario, lo único 
que se consigue es detener la ejecución del programa activo. Puede pulsar [cTRL][G] 
para comprobarlo. En este contexto [CTRL][G] es equivalente a [Esc]. De todo lo an- 
terior se deduce que debe usarse la primitiva char para producir los efectos apropia- 
dos de los caracteres de control. 


clean 


Esta primitiva no lleva ningún parámetro. Su función es borrar la pantalla gráfica 
sin afectar para nada a la tortuga. : 


?repeat 15 [fd 18 rt 18] 
?clean 
? 
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Co 


Esta primitiva reanuda la ejecución de un procedimiento interrumpido tras haber 
pulsado [CTRL]Z] o por la existencia de una instrucción pause dentro del propio 
procedimiento. 


?to probar 
>pr [uno] 
>pause 

>pr [dos] 
>end 

probar defined 
?probar 

uno 
pausing... in probar: [pause] 
probar ?co 
dos 

? 


Esta instrucción puede resultarnos muy útil, ya que junto con permite ave- 
riguar en qué estado se encuentra exactamente el procedimiento que se está ejecutan- 
do. Por ejemplo: 


?viajar 

[CTRL]Z] 

pausing... in viajar: move 

viajar ?tf 

[190.603591019247 —40.6615964450271 274 PD 1 
TRUE] 

viajar ?co 


viajar es un procedimiento que hemos visto con anterioridad. 


Cos 


Esta primitiva proporciona el coseno del ángulo que indica el parámetro medido en 
grados sexagesimales. 


?cos 60 
0.500000000017049 
? 


Observe que los últimos decimales de la respuesta indican un pequeño error, que 
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equivale a un error relativo de 3.4097e-11 aproximadamente. Puede calcularse este 
valor de la siguiente forma: 


?((cos 60) — .5)/.5 
3.40974748436196e — 11 
? 


Este tipo de inexactitudes numéricas es bastante frecuente en los ordenadores, pues- 
to que en muchas ocasiones las fracciones numéricas tienen un número infinito de 
decimales, y desde luego los ordenadores no son infinitos. 


count 


Esta primitiva utiliza un parámetro, que puede ser una palabra o una lista, y propor- 
ciona el número de caracteres que constituyen la palabra o el número de palabras 
que forman la lista. Convierte los números en su equivalente en caracteres. 


?count “abcde count la b c d el 1/2 count 1/2 
5 

5 

0.5 

3 

? 


Al tratar los números como palabras, tanto en esta instrucción como en otras simila- 
res, las respuestas resultan a veces un poco extrañas, como por ejemplo: 


7100000000000000000000000000 

1.e+26 

?count 100000000000000000000000000 
6 

?count *100000000000000000000000000 
27 

? 


fenómeno examinado con más detalle en la Guía. 


Esta primitiva, junto con item, permite crear la instrucción last que aparece en al- 
gunas versiones de LOGO. 


?to last :listadatos 

>op item count :listadatos :listadatos 
>end 

last defined 

74 
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Cs 


Esta primitiva no emplea ningún parámetro. Su función es borrar la pantalla gráfi- 
ca colocando a la tortuga en el centro de la misma y apuntando en sentido vertical 
hacia arriba. 


?repeat 15 [fd 18 rt 18] 
?cs 
? 


ct 


Esta primitiva tampoco lleva parámetros. Su función es borrar la pantalla de textos 
y colocar el cursor en la esquina superior izquierda de la misma. En caso de que 
nos encontremos en el modo de pantalla compartida, esta primitiva sólo borra la 
parte inferior de la misma. 


?pr [no veras esto] ct 
? 


dir 


Esta instrucción ofrece una lista de los ficheros de LOGO grabados en el disco que 
contenga la unidad en este momento; para ello selecciona los ficheros que contengan 
la extensión .LOG. Observe que la extensión del nombre no aparece en la lista de 
ficheros. 


?dir 
[01 02 03 MATRIZ1 MATRIZ2] 
? 


Todos los nombres de los ficheros aparecen en mayúsculas, pero LOGO acepta tan- 
to load “matriz1 como load “MATRIZ1. Hay que tener cuidado para no confun- 
dir esta primitiva con la instrucción del mismo nombre de CP/M. 


dot 


Esta primitiva toma como parámetro una lista que contenga dos coordenadas y di- 
buja un punto en el lugar que definen ambas. 


?dot [30 40] 
?dot se 50 60 
? 
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Para LOGO se 50 60 es equivalente a [50 601. 


ed 


Esta primitiva llama al editor. Para ello requiere un parámetro que puede ser una 
palabra, (el nombre de un procedimiento o de una variable), o una lista de palabras, 
(un conjunto de nombres de procedimientos y de variables). En caso de que el mis- 
mo nombre se refiera tanto a un procedimiento como a una variable, el editor pre- 
senta ambos. Normalmente, si no se incluye ningún parámetro a continuación de 
ed, el editor ofrece una pantalla vacía. Para salir del editor se pulsa la tecla [Copy], 
y para detener la edición [Esc]. 


?make ”j 0 
?to j 

>end 

j defined 
?ed ”j 


Si se detecta un error al ejecutar un procedimiento, es posible entrar en el editor es- 
cribiendo ed. En este caso LOGO coloca el cursor en el lugar donde ha detectado 
el error. En algunos casos el editor confunde el procedimiento, por ejemplo si se 
produce un error en un procedimiento a que a su vez llama al procedimiento b, es 
posible que LOGO edite este último, en lugar de editar a. Es frecuente que esto ocu- 
rra cuando a llama a b empleando un parámetro inadecuado. 


emtyp 


Esta primitiva toma un parámetro e indica si se trata de un conjunto de espacios, 
es decir, de una palabra “'vacía”?. LOGO no considera los números como palabras 
vacías. 


?emptyp “a emptyp lal emptyp 1 
FALSE 

FALSE 

FALSE 

emptyp “emptyp [ ] emptyp 0 
TRUE 

TRUE 

FALSE 

? 
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end 
Da por terminada la definición de un procedimiento. 


?to j 
>local ”j 


488 14% 14% 


>pprop “J"“J"J 
>end 

j defined 

? 


Esta primitiva debe encontrarse en una línea separada de las demás; en caso contra- 
rio LOGO no la reconoce como final de definición de un procedimiento. Cada pro- 
cedimiento debe tener un end y sólo uno. 


ent 


Este procedimiento toma como parámetro una lista y define una envolvente de tono 
con los elementos de la misma. Es equivalente a la instrucción ent del BASIC de 
Locomotive. El primer elemento de la lista es el número de la envolvente, y los res- 
tantes definen las diversas secciones de la misma. 


?make “numero_de_ envolvente 1 

?make “seccion_envolvente [100 2 20] 

?ent se :numero_de_ envolvente :seccion_envolvente 

? 
La última línea es equivalente a ent [1 100 2 20]. Por último, esta instrucción no 
admite elementos negativos en la lista. 


env 


Esta instrucción también toma como parámetro una lista. Su función es definir una 
envolvente de volumen (véase ent). 


?env se :numero_de_envolvente :seccion_envolvente 
ñ 


Al igual que la anterior, tampoco admite elementos negativos en la lista. 
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er 


Esta primitiva emplea un parámetro que puede ser una palabra o una lista. Su fun- 
ción es borrar el procedimiento o procedimientos que indica el parámetro, dejando 
libre al mismo tiempo el área de trabajo correspondiente. 


?er ”j 
?er [un dos] 
? 


Si no existe alguno de los nombres, LOGO no llega a realizar la acción de borrado. 


?to j 

>end 

j defined 

?j 

?er [j k] 

er doesn't like k as input 


| don't know how to j 
? 


ern 


Esta primitiva emplea un parámetro que puede ser una palabra o una lista. Su fun- 
ción es borrar la variable o variables que indica el parámetro, dejando libre al mis- 
mo tiempo el área de trabajo correspondiente. 


?ern ”j 
?ern [uno dos] 
? 


Si no existe alguno de los nombres, LOGO no llega a realizar la acción de borrado. 


?make “j 0 

?ern [k j]l 

ern doesn't like k as input 
?:j 

0 

?ern [j] 

?:j 


j has no value 
? 
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ERRACT 


Esta primitiva tiene por objeto modificar lo que ocurre cuando se produce un error. 
Habitualmente el valor de ERRACT es FALSE. Por ejemplo: 


?to bo 

>boob 

>end 

bo defined 

?to boob 

>p 

>pr [aqui] 

>end 

boob defined 

?bo 

| don't know how to p in boob: p 
?make “ERRACT “TRUE 
?bo 

pausing... in boob: p 
boob ?po “boob 

to boob 

p 

pr [aqui] 

end 


boob ?co 
? 


La primitiva ERRACT se encuentra estrechamente relacionada con pause, [CTRL[Z] 
y co. Este sistema facilita bastante la tarea de eliminar errores en programas com- 
plejos. 


error 


La palabra error aparece en dos casos distintos: como etiqueta de la orden catch 
(y del throw correspondiente) o bien como throw ”error (y por consiguiente como 
catch “error) figurando sin parámetros como si se tratase de una instrucción inde- 
pendiente. En este último caso, error produce una lista en la que se describe detalla- 
damente el error que se ha producido. 


?to b 

>catch “error [boob] 
>end 

b defined 
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?b 

pausing... in boob: p 
boob ?co 

?to c 

>catch “error [boob] 
>0p error 

>end 

c defined 

?c 

pausing... in boob: p 
boob ?co 

[35 [I don't know how to p] boob [p] catch pl] 
? 


Este ejemplo indica que el error 35 es del tipo **I don't know how to...””. El pro- 
cedimiento b incluye las instrucciones catch y throw, pero no produce ningún in- 
forme del tipo de error; por el contrario, el procedimiento c produce un informe 
del error por medio de op error. 


FALSE 
Se trata de un valor que indica si la proposición anterior es falsa. 


722 =3 
FALSE 
?22=2 
TRUE 
? 


FALSE es el contrario de TRUE. 


fd 


Abreviatura de ““forward””. Esta primitiva hace que la tortuga avance un número 
de unidades igual al número que la acompaña. Si este número es negativo, la tortu- 
ga retrocede en lugar de avanzar. 


?fd 20 
?fd —20 
? 
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fence 


Esta primitiva no emplea ningún parámetro. Su función es impedir que la tortuga 
se salga de los límites de la pantalla. Véanse también wrap y window. 


?cs 

?fd 250 

?fence 

Turtle out of bounds 
?cs 

?fence 

?fd 250 

Turtle out of bounds 
? 


Esta modalidad es mucho menos frecuente que wrap o window. 


first 


Esta primitiva da como resultado el primer elemento del objeto introducido en for- 
ma de parámetro. 


?first “abc first la b cl] first 12345 
a 


a 
1 
E 

Si el parámetro es una lista con sublista, first actúa de la siguiente forma: 


?first [lab cl [d e f] [g h il] 

lab cl] 

?first first [[ab cl [d e f] [g h il] 

ab 

?first first first [lab c] [d e f] [g h il] 
E 

? 


fput 


Esta primitiva crea una lista añadiendo el objeto que indica el primer parámetro al 
segundo. 
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?fput “a “bc 

abc. 

?fput “a [bc] 

la bc] 

?fput [al “bc 

fput doesn't like bc as input 
?fput [a] [bc] 

[la] bc] 

? 


Observe que el primer objeto conserva su carácter, en el sentido de que las listas si- 
guen siendo listas y las palabras siguen siendo palabras. En caso de que el primer 
objeto sea una lista, el segundo también debe serlo. 


fs 


Esta primitiva no emplea ningún parámetro. Su función es hacer que toda la panta- 
lla se convierta en pantalla gráfica. 


?fs 


Si se dedica la parte inferior de la pantalla a pantalla de textos, la tortuga puede 
introducirse en esta zona, con lo que desaparece. Con la primitiva fs se evita esta 
desaparición sin que ello afecte a los dibujos que la tortuga hubiese realizado con 
anterioridad. 


glist 
Esta primitiva emplea un solo parámetro, y nos proporciona una lista de todos los 
objetos contenidos en el área de trabajo que tengan la propiedad que indica el 


parámetro. 


?glist “.APV 
[joyval ¡ ERRACT a] 


Esto nos permite obtener una lista de todas las variables, procedimientos, primiti- 
vas, etcétera, y resulta muy útil para realizar bases de datos. 


go 


Esta instrucción sólo se puede emplear dentro de un procedimiento y realmente no 
es recomendable, ya que puede provocar muchas confusiones innecesarias. La ins- 
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trucción emplea un parámetro, que es una etiqueta, y pasa el control del procedi- 
miento a la línea en que se ha declarado la misma. 


?to programa_malo 
>label “tonto 

>pr [es una bobada] 
>go “tonto 

>end 

programa_malo defined 
?programa_malo 

es una bobada 

es una bobada 

es una bobada 

es una bobada 
Stopped! in programa_malo: [pr [es una bobada]] 
? 


Una vez más le recomiendo que no emplee esta primitiva; puede crear muchas 
confusiones. 


gprop 


Esta instrucción emplea dos parámetros, el nombre de un objeto y el nombre de una 
propiedad determinada, y da el valor de la propiedad correspondiente para el objeto 
en cuestión. 


?gprop “prueba “.DEF 

[[] [local “b] [make “b 9] lop gprop “b ”. 
APVII 

? 


Esta primitiva se emplea mucho a la hora de realizar bases de datos y, por otra par- 
te, representa un método bastante sofisticado de controlar los modos de ejecución 
(véanse los procedimientos para matrices del capítulo 11). 


ht 


Esta orden no emplea ningún parámetro. Su función es hacer desaparecer la tortuga 
de pantalla, con lo cual LOGO realiza los dibujos a mayor velocidad. 


?st 

?repeat 20 [fd 18 rt 18] 
?cs ht 

?repeat 20 [fd 18 rt 18] 
?st 

? 
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En general es aconsejable emplear esta primitiva a la hora de realizar dibujos, a no 
ser que haya alguna razón especial para estudiar los movimientos de la tortuga. 
Dentro de un procedimiento también es posible hacer aparecer y desaparecer la tor- 
tuga por medio de [cTrL]Z]. 


?st ramo 100 5 

[CTrL]Z] 

pausing... in ramo: ramo 
ramo ?ht 

ramo ?co 

? 


Estas instrucciones hacen desaparecer la tortuga en mitad del procedimiento arbol 
definido en el capítulo 8. 


if 


Esta primitiva emplea dos o tres parámetros. El primero de ellos es una proposición 
que analiza el sistema; el segundo es una lista de instrucciones para ejecutar en caso 
de que la proposición anterior sea cierta y, por último, el tercer parámetro (que es 
opcional) es otra lista de instrucciones para ejecutar si la proposición es falsa. En 
caso de que no exista el tercer parámetro y de que la proposición sea falsa, LOGO 
salta a la siguiente línea. 


?if 2 = 2 [pr “verdadero] [pr “falso] 


verdadero 
?if 2 = 3 [pr “verdadero] [pr “falso] 
falso 


?if 2 = 2 [pr [verdadero otra vez]] 
verdadero otra vez 

?if 2 = 3 [pr “seguro?] 

? 


int 


Esta instrucción elimina la parte fraccionaria de cualquier número que se introduzca 
como parámetro. 


?int 1.2 

1 

?int —1.2 
1 


? 
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Observe que, a diferencia de lo que ocurre en otros lenguajes de programación, el 
resultado de int — 11.2 no es —2, sino —1. En LOGO los números negativos tienen 
el mismo tratamiento que los positivos. 


item 


Esta primitiva emplea dos parámetros. Su resultado es el elemento del objeto que 
representa el segundo parámetro y que ocupa el lugar indicado por el primero. El 
segundo parámetro puede ser tanto una palabra como una lista. 


?item 3 “abcd item 3 [a b c d] 1/2 item 3 1/2 
c 

c 

0.5 

5 

? 


En caso de que el segundo parámetro sea una lista, hay que tener en cuenta que pue- 
de estar compuesta por sublistas: 


?item 2 [a [b cdl el 

[b cd] 

?item 2 item 2 [a [b cd] el 
cd 

?item 2 item 2 [a [b cd] el 
d 

? 


Se puede emplear esta primitiva, junto con count, para crear la primitiva last con 
que cuentan otras versiones de LOGO: 


?to last :listadatos 

>o0p item count :listadatos :listadatos 
>end 

last defined 

? 


keyp 


Esta primitiva no emplea ningún parámetro. Su resultado es TRUE o FALSE, se- 
gún se haya pulsado una tecla que luego podrá ser leída por medio de rc, rl o rq. 
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?repeat 5 [pr keyp repeat 100 [ ]] 
FALSE 

FALSE 

TRUE 

TRUE 

TRUE 

?[ 


En el ejemplo anterior se ha empleado un bucle de retraso (repeat 100 [ 1) aunque 
también podría haberse empleado la primitiva wait. Se comprueba cinco veces el 
teclado y, una vez que es pulsada la tecla, la respuesta a keyp pasa a ser TRUE. 
Hemos pulsado la tecla correspondiente al corchete, por eso una vez que el ordena- 
dor ha ejecutado el proceso imprime un corchete. 


label 


Esta primitiva emplea un parámetro, que no es otra cosa que la propia etiqueta que 
será empleada más tarde para identificar esa línea. Se usa junto con la primitiva go. 


?to programa_malo 
>label “tonto 

>pr [es una bobada] 
>go “tonto 

>end 

programa_malo defined 
?programa_malo 

es una bobada 

es una bobada 

es una bobada 
Stopped! in programa_malo: [pr [es un bobada]] 
T 


list 


Esta primitiva emplea un número variable de parámetros, formando una lista con 
todos ellos. La lista resultante conserva el carácter de los objetos empleados como 
parámetros, es decir, siguen siendo listas o palabras. En caso de que se emplee un 
solo parámetro o más de dos, es necesario encerrar tanto la primitiva como sus pará- 
metros entre paréntesis. 


?list “a “b 

[a b] 

?(list “a “b “c) 
la b cl] 
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?list “a [b] 
la [b]] 

?list [al “b 
[[al b] 

?list [al [b] 
[lal [b1] 
?list [a] [[b]] 
[la] [[b11] 

P. 


Es interesante comparar esta primitiva con se. 


load 


Esta primitiva requiere un parámetro que debe ser un nombre de fichero. Su función 
es cargar el fichero correspondiente desde el disco en la memoria del ordenador. És- 
te almacena la información en el fichero en forma de caracteres ASCII, lo que quie- 
re decir que se trata de ficheros de textos, que pueden verse en pantalla desde CP/M 
por medio de la orden type y que pueden modificarse por medio de ed. Es muy 
importante no confundir estas órdenes de CP/M con las órdenes de LOGO que lle- 
van el mismo nombre. 


?dir 

[MATRICES PROLOGO2 PROLOGO1 CAP1 CAP2 
ESTADISTI 

?load “matrices 

bucle defined 

matrop defined 

matropx defined 

?load “estaDIST 

abs defined 

media defined 

mediacuad defined 

regres defined 

estadist defined 

trans defined 

?load [matrices estadist] 

load doesn't like [matrices estadist] as 
input 

? 


El parámetro de esta primitiva ha de ser una palabra, no una lista, y es indiferente 
que esté escrita en mayúsculas, en minúsculas o en cualquier combinación de ambas. 
Los procedimientos que aparecen con la palabra *“defined”” a continuación son los 
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procedimientos que había en el área de trabajo cuando se grabó el fichero. También 
están incluidos, aunque no aparezcan en la lista, todos los objetos con propiedades 
distintas de .PRM. Por ejemplo, para continuar con el supuesto anterior: 


?glist “.APV 
[9876543210ba] 
? 


donde los números no son otra cosa que los objetos empleados para almacenar los 
resultados del generador de números aleatorios. La Guía incluye más detalles. 
local 

Esta primitiva se emplea solamente dentro de la definición de un procedimiento. Su 
función es definir varios objetos, cuyos nombres acepta como parámetros, y restrin- 


gir su empleo al procedimiento en cuestión: 


?to prueba_local 


>local “a 
>make “a [x *x*] 
>show :a 

>end 
prueba_local defined 
?make “a 3 

?:a 

3 

?prueba_local 
[x * x*] 

? 


Esta primitiva es fundamental a la hora de crear sistemas complejos. En general, 
es aconsejable emplear variables globales lo menos posible, pues de lo contrario con- 
sumiremos rápidamente el área de trabajo con bagatelas que realmente no sirven pa- 
ra nada. 


lt 


Esta primitiva hace que la tortuga gire en sentido contrario al de las agujas del reloj 
el ángulo introducido en forma de parámetro. En caso de que éste sea negativo la 
tortuga gira en el sentido de las agujas del reloj. 


?It 50 
?1t —50 
Es 
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make 


Esta primitiva emplea dos parámetros y asigna el valor del segundo al objeto cuyo 
nombre es el primer parámetro. Es equivalente a pprop “nombre ”.APV 
«content. 


?make “a 0 
?:a 

0 

? 


nodes 


Esta primitiva no emplea ningún parámetro. Su función es indicar la memoria o 
área de trabajo que queda libre en cada momento. LOGO consume rápidamente 
el espacio de memoria con que cuenta, así que con cierta frecuencia es preciso deter- 
minar qué contenidos del área de trabajo no son necesarios para reorganizar la mis- 
ma. Para realizar esta operación se emplea la orden recycle. 


?nodes 
526 
?recycle 
?nodes 
1224 

? 


not 


Esta primitiva toma un parámetro, que puede ser TRUE o FALSE, e invierte su 
valor. 


?not “TRUE 
FALSE 

?not “FALSE 
TRUE 

? 


Op 


Esta primitiva toma el valor introducido como parámetro y lo envía como resultado 
al programa que la llamó, dando por terminada la ejecución del procedimiento en 
que está incluida. En otros lenguajes de programación hay una función que se en- 
carga de realizar esta acción. 
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?to ensayo 

>if rq = “s [op “sil 

>pr [no] 

>op [esto es una salida] 
>pr [linea de comprobacion] 
>end 

ensayo defined 

?ensayo 

n 

no 

[esto es una salida] 
?ensayo 

Ss 

si 

? 


paddle 
Esta primitiva proporciona un valor que representa la orientación del joystick. Si 
la palanca del joystick se encuentra en su posición de reposo, el valor es 255; en el 


resto de los casos la orientación la da el valor resultante multiplicado por 45 grados. 


?repeat 10 [pr paddle 0] 


Como consecuencia de la forma en que el joystick emula al teclado, su uso puede 
hacer aparecer caracteres en pantalla. 


pal 
Esta primitiva toma el valor de un parámetro, y responde con una lista de los núme- 


ros que representan las proporciones en que están mezclados los colores básicos para 
componer la tinta correspondiente al parámetro. 
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?pal 2 
[O 2 0] 
? 


Véase setpal. 


pause 


Esta primitiva no emplea ningún parámetro. Se utiliza para detener temporalmente 
la ejecución de un procedimiento. Para reanudar la ejecución del mismo no hay 
más que escribir co. 


?to prueba 
>pr [uno] 
>pause 

>pr [dos] 
>end 

prueba defined 
?prueba 

uno 
pausing... in prueba: [pause] 
prueba ?co 
dos 

? 


Véase también co. 


pd 


Esta primitiva no emplea ningún parámetro. Su función es bajar la pluma de la tor- 
tuga, es decir, hacer que ésta dibuje al moverse. 


?cs st pd fd 50 
?pu fd 50 

?pd fd 50 

? 


Puede decirse que esta orden es la inversa de pu. 


pe 


Esta primitiva tampoco emplea parámetros. Su objetivo es hacer que la pluma de 
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la tortuga tome el color del fondo, con lo que la tortuga va borrando lo que encuen- 
tra en su camino al moverse. 


?setpc 1 

?cs tt “XXX 
?pe tt “XXX 
? 


plist 


Esta primitiva da la lista de propiedades de cualquier objeto que sea introducido co- 
mo parámetro de la misma. 


?plist “enrique 

[era_padre_ de [enrique_ VII] padre_ de [eduardo 
isabel 11] era_madre_ de [isabel_1] era [varon]] 
? 


Para su empleo en una base de datos, véase la Guía. 


po 


Esta primitiva toma un parámetro; en caso de que éste sea una palabra da la defini- 
ción del procedimiento del mismo nombre. En caso de que sea una lista imprime 
en pantalla la definición de cada uno de los procedimientos que la componen. 


?po “yaprop 

to yaprop :elem :enlista 

if 0 = count :enlista [op FALSE] 

if :elem = first :enlista [op “TRUE] [op 
yaprop :elem bf :enlista] 

end 

?po [yaprop add] 

to yaprop :elem :enlista 

if 0 = count :enlista [op “FALSE] 

if :elem = first :enlista [op “TRUE] [op 
yaprop :elem bf :enlistal 

end 

to add: suj :rel :obj 

adprop :suj :rel :obj 

adprop :obj word :rel “era_ :suj 

end 

? 
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pots 


Esta primitiva tampoco emplea ningún parámetro. Su función es escribir la primera 
línea de todos los procedimientos contenidos en el área de trabajo. 


?pots 

to add :suj :rel :obj 

to adprop :nom :prop :conten 
to yaprop :elem :enlista 

to listacon :prop 

to conprop :prop :enlista 


to condos :I1 :12 
to soloparte 

to soloaux :en 

? 


pprop 


Esta primitiva emplea tres parámetros: el nombre de un objeto, el nombre de una 
propiedad y el contenido de esa propiedad para el objeto. 


?:a 

a has no value 
?pprop “a “.APV 0 
?:a 

0 

? 


Para su empleo en una base de datos, véase la Guía. 


pr 


Esta primitiva acepta uno o varios parámetros y los escribe en la pantalla de textos. 
Cuando son empleados varios parámetros es necesario encerrarlos, junto con la pri- 
mitiva, entre paréntesis. La diferencia entre pr y type consiste en que la primera 
introduce un retorno de carro después de cada parámetro, mientras que la segunda 
no. Tanto pr como type omiten los corchetes exteriores de las listas; por el contra- 
rio, show imprime en pantalla los corchetes, pero no admite nada más que un 
parámetro. 


?pr “a pr “b 
a 
b 
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?show “a show ”b 
a 

b 

?type “a type “b 
ab 

?pr [al pr [b] 

a 

b 

?show [al] show [b] 
[a] 

[b] 

?type [a] type [b] 
ab 

?(pr “a “b) (pr “c ”d) 
ab 

cd 


?(show “a “b) 

a 

Il don't know what to do with ”b 
?(type “a “b) (type “c ”d) 

a bcd 

? 


pu 


Esta primitiva no emplea parámetros. Su función es levantar la pluma de la tortuga, 
lo que impide que ésta dibuje según se mueve. 


?cs st pu fd 50 
?pd fd 50 

?pu fd 50 

? 


Podemos considerar que esta orden es la opuesta de pd. 


px 


Esta orden acepta un parámetro, y hace que la tortuga cambie el color de los pixels 
que se encuentra por su color complementario inverso. En pocas palabras esto quie- 
re decir que la tortuga toma los dos componentes del color y combina los dos núme- 
ros de la pluma, determinando el valor XOR (o exclusivo) de ambos. 
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?setpal 0 [0 O 0] setpal 1 [2 0 0] setpal 2 
[0 2 0] setpal 3 [0 O 2] 

?cs px 

?setpc 1 tt “XXX 

?setpc 2 tt “XXX 

?setpc 3 tt “XXX 

?setpc 0 tt “XXX 

? 


Por ejemplo: el valor binario de 1 es 01, mientras que el valor binario de 2 es 10; 
el valor 01 XOR 10 es 11, es decir, se obtiene el color correspondiente a la pluma 
número 3. Es muy interesante probar todas las combinaciones posibles y sacar una 
tabla comparativa. 


random 


Esta primitiva proporciona un número aleatorio comprendido entre cero y el valor 
inmediatamente inferior al parámetro. Al emplear random por primera vez des- 
pués de inicializar LOGO, se obtiene siempre el mismo valor, así que es conveniente 
echar un vistazo al procedimiento randomize empleado en los capítulos $ y 9. 


?random 1000 
53 
?random 1000 


?random 1000 


rc 


Esta primitiva no emplea ningún parámetro. Su resultado es el carácter correspon- 
diente a la primera tecla pulsada. Esta orden siempre espera hasta que la tecla haya 
sido pulsada. Al emplear rc dentro de un procedimiento es necesario asignar o com- 
parar su resultado. 


?if rc = “s [pr “sil [pr “nol 
no 
? 
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recycle 


Esta primitiva no emplea ningún parámetro. Es la encargada de reorganizar el área 
de trabajo para liberar memoria. 


?recycle 
?nodes 
1224 

? 


Véase también nodes. 


REDEFP 


Se trata de una característica propia del sistema que debe utilizarse con sumo cuida- 
do. Cuando se atribuye el valor TRUE a REDEFP, el sistema permite volver a defi- 
nir las primitivas, lo cual puede ser muy útil en algunos casos pero no en otros. An- 
tes de pasar al siguiente ejemplo, grabe en disco el área de trabajo. 


?to fd :en 

fd is a primitive 

?make “REDEFP “TRUE 
?to fd :en 

>end 

fd defined 

?fd 100 

? 


El ordenador parece no responder a la última instrucción, y realmente no hay forma 
de salir de esta situación. La tortuga no se puede mover. 
release 


Esta primitiva acepta un solo parámetro, y es la encargada de liberar los canales de 
sonido que se hayan retenido en una instrucción sound. 


?release 7 
? 


Este ejemplo libera todos los canales. El parámetro de la instrucción se obtiene su- 
mando los siguientes valores: 1 para el canal A, 2 para el B y 4 para el C. 
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remrop 


Esta primitiva emplea dos parámetros; el primero es el nombre de un objeto y el 
segundo es una propiedad. Su función es retirar la propiedad del objeto 
correspondiente. 


?make “a 0 
?plist “a 
[.APV 0] 

?:a 

0 

?remprop “a “.APV 
?plist “a 

[1 

?:a 

a has no value 
? 


También resulta muy útil a la hora de trabajar con bases de datos. 


repeat 


Esta primitiva también emplea dos parámetros: un número y una lista de instruccio- 
nes. El ordenador repite la lista de instrucciones tantas veces como indique el pri- 
mer parámetro. 


?repeat 5 [pr “x] 


Vo AA A A 


rl 


Esta primitiva no emplea parámetros. Su función es producir una lista con la infor- 
mación escrita hasta que se produce un retorno de carro, es decir, hasta que se pulsa 
la tecla [INTRO]. Si rl es usada dentro de un procedimiento, será necesario compa- 
rar O asignar su resultado. 


?if first rl = “s [pr “sil [pr “no] 
no 
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?show rl 

[una lista de palabras] 
?show rq 

una lista de palabras 
? 


rq 


No emplea ningún parámetro. Produce como resultado una palabra (una secuencia 
de caracteres) con la información escrita hasta que se produce un retorno de carro, 
es decir, hasta que se pulsa la tecla [INTRO]. Si se usa rq en un procedimiento, su 
resultado debe ser asignado o comparado. 


?if first rq = “s [pr “sil [pr “no] 
no 

?show rl 

[una lista de palabras] 

?show rq 

una lista de palabras 

? 


rt 


Esta primitiva hace que la tortuga gire en el sentido de las agujas del reloj el ángulo 
introducido en forma de parámetro. En caso de que éste sea negativo, la tortuga 
gira en sentido contrario al de las agujas del reloj. 


?rt 50 
?rt —50 
? 

run 


Esta orden se encarga de ejecutar una lista de instrucciones que admite en forma 
de parámetro. 


?make “a [fd 100 rt 90] 
?run :a 

?repeat 1 :a 

? 


De hecho run es equivalente a repeat 1. 
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save 


Esta primitiva admite como parámetro un nombre de fichero. Su función es grabar 
en disco, bajo ese nombre, el área de trabajo. LOGO admite como nombre de fi- 
chero un grupo de caracteres en mayúsculas, minúsculas o en cualquier combinación 
de ambas, ya que convierte todas las letras en mayúsculas. Puede solicitar el direc- 
torio del disco desde LOGO por medio de la orden dir; verá que todos los nombres 
de ficheros aparecen en mayúsculas. 


El nombre del fichero debe ser totalmente nuevo para LOGO, es decir no debe estar 
en el área de trabajo. La única forma de borrar ficheros es salir a CP/M y emplear 
la orden era. 


?dir 

[ESTADIST PROLOGO1 MATRICES] 

?save “MATRICES 

File matrices already exists 

?save “matriz1 

?dir 

[MATRIZ1 ESTADIST PROLOGO1 MATRICES] 
? 


se 


Esta primitiva admite un número variable de parámetros, formando con todos ellos 
una lista. No conserva el carácter de los datos, dado que retira los corchetes exter- 
nos de las listas. En caso de emplear un solo parámetro o más de dos, es necesario 
encerrar entre paréntesis los parámetros junto con la primitiva. 


?se “a “b 
[a b] 

?(se “a “b “c) 
la b cl] 

?7se “a [b] 
[a b] 

?7se [al “b 
la b] 

?se [al [b] 
[a b] 

7se [a] [[b]] 
la [b]] 

? 


Es conveniente comparar esta primitiva con list. 
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seth 


Esta primitiva admite un parámetro, y se encarga de orientar a la tortuga en el rum- 
bo indicado. 


tos tf 

[000 PD 1 TRUE] 
?seth 35 tf 

[0 0 35 PD 1 TRUE] 
? 


setpal 


Esta primitiva emplea dos parámetros: un número del 0 al 3, que representa el color 
de la pluma, y una lista de tres valores, cada uno de los cuales está comprendido 
entre 0 y 2, que representa las proporciones de rojo, verde y azul que intervienen 
en el color correspondiente al primer valor. 


?cs setpal 0 [0 0 0] [negro negro] 
[negro negro] 


?setpc 1 setpal 1 [2 0 0] [pluma roja] 
[pluma roja] 
?setpal 1 [0 2 0] [pluma verde] 
[pluma verde] 
?setpal 1 [0 0 2] [pluma azul] 
[pluma azul] 
?setpal 1 [2 2 0] [amarillo brillante] 
[amarillo brillante] 
?setpal 1 [1 1 0] [amarillo oscuro] 
[amarillo oscuro] 
? 


Rojo, verde y azul son los tres colores básicos que componen la luz blanca. 


setpe 


Esta instrucción hace que la pluma de la tortuga tome el color que corresponde a 
un número introducido en forma de parámetro. La pluma puede tomar los valores 
O, 1, 2 y 3; el número O corresponde al color del papel, mientras que los otros tres 
valores pueden tomar un color diferente que se modifica con la instrucción setpal. 


?setpc 3 
? 
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setpos 


Esta primitiva toma como parámetros de entrada dos números que representan las 
coordenadas de un punto, y se encarga de llevar la tortuga hasta la posición indica- 
da. Si se ha bajado previamente la pluma de la tortuga, ésta dibuja una línea según 
se mueve. La orientación de la tortuga no se ve afectada. 


?setpos [30 40] 
?setpos se 50 60 
? 


Para LOGO se 50 60 es equivalente a [50 60] 


setsplit 


Esta primitiva permite ajustar por medio de un parámetro el número de líneas de texto 
de una pantalla compartida. El valor inicial de líneas de texto puede variar entre 1 y 
25, pero pruebe con los valores extremos; se producen efectos muy interesantes. 

?sf 

[0 TS 5 WRAP 1] 

?setsplit 0 

setsplit doesn't like O as input 

?setsplit 1 cs sf 


En este caso puede observar que se borra la pantalla y que en la última línea se pro- 
duce un movimiento muy rápido de caracteres. Al no haber dejado más que una 
línea para textos, no puede leer la información que envía el sistema. 


7ts setsplit 26 

setsplit doesn't like 26 as input 
?setsplit 25 

?cs 


En esta ocasión LOGO borra la pantalla y hace aparecer en la parte superior de la 
misma la interrogación “*?””. 


?sf 

[0 SS 25 WRAP 1] 
?setsplit 5 sf 

[0 SS 5 WRAP 1] 
cs 

? 


Finalmente volvemos a la pantalla compartida habitual. 
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sf 


Esta primitiva no necesita ningún parámetro. Su función es proporcionar una serie 
de características referentes a la disposición de la pantalla por medio de una lista 
de cinco elementos, que son los siguientes: 


— Color del fondo: siempre es 0. 

— Reparto de la pantalla: TS, SS o FS, según el caso. 

— Número de líneas para textos que hemos establecido por medio de setsplit. 
— Carácter de los bordes de la pantalla: WINDOW, WRAP o FENCE. 

— Aspecto de la pantalla: siempre es 1. 


?sf 

[0 SS 5 WRAP 1] 
?window ts sf 

[0 TS 5 WINDOW 1] 
? 


show 


Esta primitiva acepta un parámetro y lo imprime en la pantalla de textos. Además 
conserva los corchetes exteriores de las listas, al contrario de pr o de type que los 
eliminan. Otra diferencia con estas dos últimas primitivas es que show no admite 
más que un parámetro. La principal diferencia entre pr y type consiste en que la 
primera introduce un retorno de carro después de cada parámetro, mientras que la 
segunda no lo hace. 


?pr “a pr “b 

a 

b 

?show “a show “b 
a 

b 

?type “a type “b 
ab 

?pr [al pr [b] 

a 

b 

?show [al] show [b] 
[a] 

[b] 

?type [al type [b] 
ab 
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?(pr “a “b) (pr “c ”d) 

ab 

cd 

?(show “a “b) 

a 

Il don't know what to do with “b 
?(type “a “b) (type “c ”d) 

a bc d 

? 


sin 


Esta primitiva proporciona el seno del ángulo que indica el parámetro medido en 
grados sexagesimales. 


?sin 30 
0.500000000017049 
? 


Observe que los últimos decimales de la respuesta indican un pequeño error, que 
equivale a un error relativo de 3.4097e— 11 aproximadamente. Puede calcularse este 
valor de la siguiente forma: 


?((sin 30) — .5)/.5 
3.40974748436196e — 11 
? 


Este tipo de inexactitudes numéricas es bastante frecuente en los ordenadores, ya 
que en muchas ocasiones las fracciones numéricas tienen un número infinito de deci- 
males, y desde luego los ordenadores no son infinitos. 


SS 


Esta primitiva no necesita ningún parámetro. Su función es dividir la pantalla, re- 
servando la parte superior para gráficos y la inferior (5 líneas) para textos. 


7ss 


Cuando dedicamos la parte inferior de la pantalla a pantalla de textos, la tortuga 
puede introducirse en esta zona, y desaparecer. Con la primitiva fs se evita esta de- 
saparición sin que ello afecte a los dibujos que la tortuga hubiese realizado con 
anterioridad. 
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st 


Esta primitiva tampoco emplea parámetros. Su función es hacer que la tortuga rea- 
parezca en pantalla, con lo cual los dibujos se realizan con mayor lentitud. 


?st 

?repeat 20 [fd 18 rt 18] 
?cs ht 

?repeat 20 [fd 18 rt 18] 
?st 

? 


En general es aconsejable emplear la primitiva ht a la hora de realizar dibujos, a 
no ser que haya alguna razón especial para estudiar los movimientos de la tortuga. 
Dentro de un procedimiento también es posible hacer aparecer y desaparecer la tor- 
tuga por medio de [CTRL ][Z]. 


?st ramo 100 5 

[CTRL [Z| 

pausing... in ramo: ramo 
ramo ?ht 

ramo ?co 

e 


Las instrucciones anteriores ocultan la tortuga mientras LOGO está ejecutando el 
procedimiento arbol, visto con anterioridad. 


stop 


Esta primitiva no necesita parámetros. Se emplea para detener la ejecución de un 
procedimiento. En este caso, el control del programa vuelve al procedimiento de 
llamada y no se detiene todo el programa, a diferencia de lo que sucede con 
throw “TOPLEVEL. 


?to uno 

>dos 

>pr [aqui estamos] 
>end 

uno defined 

?to dos 

>if rc = “q [throw “TOPLEVEL] [stop] 
>end 

dos defined 

?uno 

<se pulsa q > 
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?uno 

<se pulsa w> 
aqui estamos 
? 


En este ejemplo el procedimiento uno llama al dos, ejecutando a continuación pr 
[aquí estamos]. El procedimiento dos espera hasta que se pulse una tecla y lee el ca- 
rácter correspondiente. Si éste es una q, el procedimiento ejecuta throw *“TOPLEVEL 
y se detiene totalmente la ejecución del programa; pero si pulsamos cualquier otra, por 
ejemplo una w, LOGO interrumpe únicamente la ejecución de dos y el control pasa 
al procedimiento que le había llamado, es decir, a uno, que continúa ejecutándose. 


tf 


Esta primitiva no emplea parámetros. Su función es proporcionar información so- 
bre la situación de la tortuga en una lista de seis elementos, que son los siguientes: 


— Coordenada x de la tortuga. 

— Coordenada y de la tortuga. 

— Orientación de la tortuga. 

— Posición de la pluma, es decir PU o PD. 

— Número correspondiente a la tinta que está empleando. 
— Indicación sobre si la tortuga está visible. 


?st setpc 1 tf setpc 2 tf 
[000 PD 1 TRUE] 

[0 0 0 PD 2 TRUE] 

?ht tf setpc 3 tf 

[0 0 0 PD 2 FALSE] 

[0 0 0 PD 3 FALSE] 

?pu tf 

[0 0 0 PU 3 FALSE] 

?pd repeat 4 [fd 100 rt 90 pr tf pause] 
[0 100 90 PD 3 FALSE] 
pausing... 

[1 ?co 

[100 100 180 PD 3 FALSE] 
pausing... 

[1 ?co 

[100 O 270 PD 3 FALSE] 
pausing... 

[1 ?co 

[0 0 0 PD 3 FALSE] 
pausing... 

[1 ?co 

? 
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En el ejemplo anterior se ha redondeado los valores de las coordenadas a los enteros 
más próximos, ya que el error cometido es insignificante. 


throw 


Esta primitiva no emplea más que un parámetro, que es el nombre de una etiqueta 
que identifica a una orden catch previa. Cuando el ordenador llega a la instrucción 
throw salta a la línea siguiente, a la instrucción catch correspondiente. 


?to prueba 

>catch “si [otroproc] 
>pr [se ha pulsado el boton] 
>end 

prueba defined 

?to otroproc 

if buttonp 0 [throw “sil 
>otroproc 

>end 

otroproc defined 
?prueba 

se ha pulsado el boton 
? 


El procedimiento prueba contiene la línea catch “si lotropoc], que se encarga de 
llamar al procedimiento del mismo nombre. El ordenador guarda en memoria dón- 
de se encuentra la etiqueta si del catch. Por su parte, otropoc se encarga de com- 
probar si se ha pulsado el botón del joystick y de llamarse a sí mismo en forma recu- 
rrente hasta que dicho botón sea pulsado. 


Al pulsar el botón el ordenador ejecuta la línea throw “si, que devuelve el control 
a la instrucción catch “si. Hay que tener en cuenta que esto sólo sucede si la ins- 
trucción throw se produce como consecuencia de los procedimientos a los que he- 
mos llamado en la lista de instrucciones de catch. Por último, en este caso el con- 
trol vuelve a la línea siguiente al catch, es decir, pr [... 


to 


Esta primitiva admite un número variable de parámetros, el primero de los cuales 
es el nombre de un procedimiento, e inicia el modo de definición en LOGO. Para 
ello es preciso que sea el primer comando de la línea. Este hecho es bastante impor- 
tante, lo que queda demostrado en la siguiente definición: 
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?to to 

>pr [que raro] 

>end 

to defined 

?plist “to 

[.DEF [[ ] [pr [que rarol]]1] 
?to 

isn't a name or procedure 
?pr [LOGO equivocado] to 
LOGO equivocado 

que raro 

? 


TOPLEVEL 


Se trata de una etiqueta que al emplearse con throw lleva el control al primer nivel 
de LOGO, es decir, a la situación en que aparecen el cursor y la interrogación. Es 
útil para salir de procedimientos anidados con una cierta complejidad. Ya se ha vis- 
to que la primitiva stop detiene la ejecución de un procedimiento y el control vuelve 
al procedimiento precedente sin interrumpir la ejecución de todo el programa. 


?to uno 

>dos 

>pr [aqui estamos] 
>end 

uno defined 

?to dos 

>if rc = “q [throw “TOPLEVEL] [stop] 
>end 

dos defined 

?uno 

<se pulsa q> 

?uno 

<se pulsa w> 

aqui estamos 

í 


En este ejemplo el procedimiento uno llama al dos, ejecutando a continuación pr 
[aquí estamos]. El procedimiento dos espera hasta que se pulsa una tecla y lee 
el carácter correspondiente. En caso de que éste sea una q el procedimiento ejecuta 
throw ““TOPLEVEL, con lo que se detiene totalmente la ejecución del programa; 
pero si se pulsa cualquier otra tecla, por ejemplo una w, LOGO interrumpe única- 
mente la ejecución de dos y el control pasa al procedimiento que le había llamado, 
es decir, a uno, que continúa ejecutándose. 
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TRUE 


Se trata de un valor que indica si la proposición anterior es cierta. 


?22=3 
FALSE 
72 =2 
TRUE 
E 


TRUE es el contrario de FALSE. 


ts 


Esta primitiva no emplea parámetros. Su función es dedicar toda la pantalla a 
textos. 


?cs fs wrap fd 5000 ts 
? 


tt 


Esta primitiva acepta como parámetro una palabra y se encarga de escribirla en la 
pantalla de gráficos a partir de la posición en que se encuentra la tortuga. Normal- 
mente, si existen trazos dibujados por la tortuga, el rótulo se superpone al dibujo. 
Esto se demuestra en el siguiente ejemplo: 


?ht cs 

?repeat 4 [fd 100 tt “X rt 90] 

?cs repeat 4 [fd 100 tt “XX rt 90] 
Y 


type 


Esta primitiva acepta uno o varios parámetros y los escribe en la pantalla de textos. 
Si se emplean varios parámetros es necesario encerrarlos junto con la primitiva entre 
paréntesis. La diferencia entre pr y type consiste en que la primera introduce un 
retorno de carro después de cada parámetro, mientras que la segunda no. Tanto 
pr como type omiten los corchetes exteriores de las listas; por el contrario, show 
imprime en pantalla los corchetes, pero sólo admite un parámetro. 
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?pr “a pr “b 

a 

b 

?show “a show “b 
a 

b 

?type “a type “b 
ab 

?pr [a] pr [b] 

5 

b 

?show [al show [b] 
[a] 

[b] 

?type [a] type [b] 
ab 


?(pr “a “b) (pr “c “d) 

ab 

cd 

?(show “a *“b) 

a 

Il don't know what to do with ”b 
?(type “a “b) (type “c “d) 

a bc d 

? 


wait 


Esta primitiva detiene la ejecución del programa durante un número de unidades de 
tiempo indicado por medio de un parámetro. Cada una de estas unidades equivale 
a 0.22 segundos. Puede emplearse, por ejemplo, para disminuir la velocidad de di- 
bujo de la tortuga. Veámoslo en el procedimiento fd_lento: 


?to fd_lento :long :ciclos 
>repeat :long/5 [fd 5 wait :ciclos] 
>fd :long — 5 x int (:long / 5) 
>end 

fd_lento defined 

?st tf fd_lento 102 5 tf 

[0 0 0 PD 1 TRUE] 

[0 102 0 PD 1 TRUE] 

? 


Es posible modificar el valor del segundo parámetro de este procedimiento para ob- 
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tener la velocidad de dibujo que se desee. En este ejemplo, las coordenadas de la 
posición de la tortuga que se obtienen con tf han sido redondeadas. 


window 


Esta primitiva no necesita ningún parámetro. Su función es hacer que la pantalla 
tome el formato habitual, permitiendo que la tortuga se salga de la pantalla y que 
permanezca fuera de ella hasta que vuelva a tomar coordenadas en el interior de la 
misma. Las coordenadas de los límites de la pantalla son —200 a +199 en vertical 
y —320 a +319 en horizontal. 


De alguna forma parece que la tortuga dibuja más despacio cuando se encuentra 
fuera de la pantalla. 


?window fs cs It 45 repeat 4 [fd 150 rt 90] 


Esta línea dedica toda la pantalla a gráficos para que pueda verse qué es lo que suce- 
de en la parte inferior de la misma, dibujando a continuación un cuadrado inclinado 
con un vértice fuera de la pantalla. Fíjese que el dibujo de este vértice lleva bastante 
tiempo. 


De los tres modos de dibujo en pantalla, fence, window y wrap, ésta última suele 
ser la más interesante, aunque para algunas aplicaciones, como puede ser el dibujo 
de diagramas, es preferible emplear window. 


?window cs st rt 25 fd 1020 
?wrap 

?cs rt 25 fd 1020 

? 


Al introducir la primera línea, la tortuga gira ligeramente y desaparece por la parte 
superior de la pantalla. Con la segunda línea se produce una pausa, después de la 
cual la tortuga vuelve a aparecer por la parte inferior izquierda sin dibujar nada 
más; fíjese en su posición. La última sentencia borra la pantalla y hace que la tortu- 
ga gire ligeramente y empiece a dibujar a bastante velocidad multitud de líneas que 
permiten apreciar el efecto de wrap. Observe que la tortuga se detiene en la misma 
posición que antes. 


word 


Esta primitiva admite un número de parámetros variable y forma una palabra con 
todos ellos. Habitualmente lleva dos parámetros, pero es posible emplear solamen- 
te uno o más de dos, encerrando en este caso entre paréntesis la primitiva y sus 
parámetros. 
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?word “a “B 


?word “a [b] 

word doesn't like [b] as input 
?2word ” 

Not enough inputs to word 
?(word “a) 

a 

?word “respuesta “= 1/4 
respuesta= 

0.25 

?(word “respuesta “= 1/4) 
respuesta=0.25 

?count (word “respuesta “= 1/4) 
14 

? 


Es muy frecuente emplear esta primitiva en aplicaciones que exigen el manejo de 
muchos caracteres, como es el caso de PROLOGO. En la Guía se ha empleado esta 
instrucción para hacer que LOGO considere un número como un objeto con 
contenido. 


wordp 


Esta primitiva toma un parámetro e indica, por medio de TRUE o de FALSE, si se 
trata de una palabra. Hay que tener en cuenta que LOGO considera los números 
como palabras. 


?wordp “asdf 
TRUE 
?wordp 12 
TRUE 
?wordp 1/4 
TRUE 
?wordp [x] 
FALSE 

? 


Wrap 


Esta primitiva no necesita ningún parámetro. Se encarga de que la pantalla pase 
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a la modalidad wrap, que hace que la tortuga vuelva a aparecer por un extremo de 
la pantalla al salirse por el extremo opuesto de la misma. 


Este formato es el que más se utiliza, dado que con él conseguimos que la tortuga 
nunca se salga de la pantalla (exceptuando, claro está, la parte inferior de la misma 
cuando la dedicamos a textos). Hay que tener en cuenta que el formato inicial no 
es wrap, sino window. 


?window cs st rt 25 fd 1020 
?wrap 

?cs rt 25 fd 1020 

? 


Al introducir la primera línea, la tortuga gira ligeramente y desaparece por la parte 
superior de la pantalla. Con la segunda línea se produce una pausa, después de la 
cual la tortuga vuelve a aparecer por la parte inferior izquierda sin dibujar nada 
más; fíjese en su posición. La última sentencia borra la pantalla y hace que la tortu- 
ga gire ligeramente y empiece a dibujar a bastante velocidad multitud de líneas que 
permiten apreciar el efecto de wrap. Observe que la tortuga se detiene en la misma 
posición que antes. 


Apéndice B 


Caracteres de control de Dr LOGO 


A continuación se incluye una lista completa de los caracteres de control de la ver- 
sión de Dr LOGO que emplean los ordenadores Amstrad, junto con teclas o combi- 
naciones de teclas que producen resultados equivalentes. 


[cTrL][A] o [CTRL][+<] 
[crrL][B] o [+] 
[cTrL][c] o [COPY] 
[CTRL][D] o [CLR] 
[cTrL]E] o [CTRL] >] 
[CTRL]F] o [>] 
[cTrL]6] o [ESC] 
[CTRL]H] o [DEL] 
[CTRL]I] o [TAB] 
[CTRL || 

[CTRL [[K| 


Mueve el cursor hasta el comienzo de una línea de texto. Mo- 
dos normal y de edición. 


Mueve el cursor un carácter a la izquierda sin borrar el carác- 
ter. Modos normal y de edición. 


Sale del modo de edición y acepta la última definición del pro- 
cedimiento correspondiente. 


Borra el carácter sobre el que se encuentra el cursor. Modos 
normal y de edición. 


Mueve el cursor hasta el final de una línea de texto. Modos 
normal y de edición. 


Mueve el cursor un carácter a la derecha. Modos normal y de 
edición. 


Detiene la ejecución en modo normal y la edición cuando se en- 
cuentra en el editor. 


Borra el carácter situado a la izquierda del cursor. Modos nor- 
mal y de edición. 


Mueve el cursor a la siguiente tabulación. Modos normal y de 
edición. 

No realiza ninguna acción. 

Borra el resto de la línea que se encuentra a la derecha del cur- 


sor y lo almacena temporalmente en un tampón. Modos nor- 
mal y de edición. 


Se emplea únicamente en modo de edición para colocar en el 
centro de la pantalla la línea en curso cuando la definición del 
procedimiento no cabe en la pantalla. 
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[CTRL]M] o [INTRO] 


[CTRLÍN] o [1] 


CTRLIO| 


[cTrL]P] o [t] 


[crri [a] o [/] 


CTRL]|R| 


CTRL[S|o ss 


CTRL[T|O ts 


[crrL]fu] o [cTrL]t] 


[cTrL]v] o 


CTRL 


[crrL[z] o pause 


Termina una línea de texto con un retorno de carro. En el mo- 
do normal coloca la línea en un tampón temporal del que pue- 
de recuperarse por medio de [crTrL[Y]. En el modo de edición 
no es más que un retorno de carro. Compárese con [cTrL][o)]. 


Baja el cursor a la siguiente línea. Sólo se puede emplear en 
modo de edición. 


El cursor sigue en la misma línea, pero el resto de la línea que 
quedaba a su derecha pasa a la de abajo. Sólo se puede em- 
plear en modo de edición. 


Sube el cursor a la línea anterior. Sólo se puede emplear en 
modo de edición. 


Coloca entre comillas el siguiente carácter, que suele ser un de- 
limitador: [ 1: =<>+/. Con este sistema es posible imprimir 
en pantalla estos caracteres. Sólo se puede emplear en modo 
de edición. 


Retrocede en el tampón hasta el comienzo del texto. Sólo se 
puede utilizar en modo de edición. 


Pasa al modo de pantalla dividida. Sólo se puede utilizar en 
modo normal. 


Pasa al modo de pantalla de textos. Sólo se puede utilizar en 
modo normal. 


Hace que el cursor ascienda una pantalla completa. Sólo se 
puede utilizar en modo de edición. 


Hace que el cursor descienda una pantalla completa. Sólo se 
puede utilizar en modo de edición. 


Detiene el desplazamiento vertical del texto, que continúa al 
pulsar cualquier otra tecla. Sólo se puede utilizar en modo 
mormal. 


Hace que el cursor avance hasta el final del tampón de edición 
dejando en pantalla una sola línea. [CcTrL[u] permite ver más 
cantidad de texto. Sólo se puede utilizar en modo de edición. 


En modo de edición, recupera la última línea que hemos intro- 
ducido en el tampón por medio de [CTRL[K]. En modo normal 
recupera la última línea que hemos introducido con O 
con [CTRL]M)]. 


Detiene la ejecución de un procedimiento, que puede reanudar- 
se por medio de co. Sólo se puede utilizar en modo normal. 


Apéndice C 


Discos y LOGO 


Para grabar en disco varios procedimientos, es necesario conocer ligeramente la for- 
ma de funcionamiento de CP/M, aunque sólo sea en lo que se refiere a las funciones 
de tratamiento de discos. La primera parte de este apéndice explica cómo hacer co- 
pias del disco que contiene Dr LOGO; más adelante se verá cómo emplear en LOGO 
los ficheros en disco y, finalmente, algunas otras funciones de interés. 


C.1 Cómo proteger su inversión 


Haga una copia del disco que contiene Dr LOGO para poder guardar el original en 
un lugar seguro. En principio supongo que usted todavía no ha grabado en él nin- 
gún procedimiento. 


Como de momento no vamos a utilizar Dr LOGO, pulse al mismo tiempo 
y [ESC], con lo que se encontrará en BASIC. Otra posibilidad es escribir 
desde LOGO la instrucción bye y, una vez en CP/M, escribir amsdos. Sea cual 
sea el método que haya empleado para llegar a BASIC, el sistema debe decir: 


Ready 


Compruebe qué disco tiene en la unidad. Debe ser el disco que contiene Dr LOGO. 
Dé la vuelta a este disco de forma que quede mirando hacia arriba la cara con 
CP/M. Ahora mueva hacia abajo o hacia el centro, según el tipo de disco, la placa 
de plástico de otro color que aparece junto a una flecha en el ángulo superior iz- 
quierdo de la funda de plástico que recubre el disco. Esta pieza no es más que un 
protector, al igual que las placas que hay en los cassettes, que impide que se pierda 
el contenido de un disco al grabar algo encima. Haga lo mismo con la otra cara 
del disco, la que contiene Dr LOGO. Finalmente vuelva a introducir el disco en la 
unidad con la cara que contiene CP/M hacia arriba. 


Ahora escriba la siguiente orden: 


¡cpm 
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En caso de que en la pantalla aparezca: 


Drive A: disc missing 
Retry, Ignore or Cancel? 


quiere decir que ha olvidado volver a introducir el disco. Hágalo ahora y pulse la 
tecla [r]. Esta vez debe encontrarse ya en CP/M 2.2. 


El cursor se encuentra junto a la divisa del sistema, A>. Escriba: 
A>dir 


lo que llenará de información la mitad de la pantalla. Se trata del ““directorio””, 
una lista con todos los nombres de los ficheros que contiene el disco. A la izquierda 
de cada línea figura A:, que indica que la información procede de la unidad A. Esta 
unidad es la habitual al entrar en CP/M. 


Si ahora escribe: 
A>dir b: 
obtendrá el directorio del disco que se encuentra en la unidad B, o en su defecto: 


Drive B: disc missing 
Retry, Ignore or Cancel? 


Esto quiere decir que ha solicitado un directorio del disco que se encuentra en la uni- 
dad B, pero CP/M no encuentra ningún disco en esta unidad. Aquéllos que tengan 
dos unidades de disco deberán introducir un disco en B, pero los que no dispongan 
más que de una tendrán que cancelar la orden y volver a la unidad A de la siguiente 
manera: 


A>dir b: 
Drive B: disc missing 


Retry, Ignore or Cancel? 


Bdos Err On B: Select 
A> 


Para contestar a Select escriba la letra A, aunque no la verá en pantalla. 


Antes de seguir adelante hay que hacer una copia de esta cara del disco. Aunque 
seguramente ya habrá visto en algún sitio cómo realizar esta tarea, voy a volver a 
explicarlo aquí. Si se detiene a leer el directorio del disco que contiene CP/M, halla- 
rá el fichero DISCCOPY COM, que realmente corresponde al fichero DISC- 
COPY.COM. La parte del nombre que precede al punto, DISCCOPY, es el nom- 
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bre principal del fichero, mientras que la parte que sigue al punto, COM, es lo que 
denominamos la extensión. 


La extensión COM significa que el fichero es de instrucciones, lo que se conoce co- 
mo un fichero de tipo ““command””. Esto quiere decir que dicho fichero contiene 
un programa listo para ser ejecutado; para ello no hay más que escribir el nombre 
principal del fichero, es decir, disccopy. Por supuesto, antes de copiar un disco 
se necesita otro disco en blanco donde grabar la copia. Lo más probable es que uti- 
lice un disco virgen, pero por si acaso compruebe que no tiene nada. Para ello intro- 
duzca el disco virgen en la unidad y escriba: 


A>dir 
Drive A: read fail 


Retry, Ignore or Cancel? 
Bdos Err On A: Bad sector 


Ahora sustituya el disco en blanco por el de CP/M, pulse y volverá a ver 
su directorio. Como es lógico también es posible utilizar un disco que no esté en 
blanco, pero siempre es conveniente pedir un directorio del mismo para ver sus con- 
tenidos, evitando de esta forma borrar algo que aún interesa. 


Aquéllos que dispongan de dos unidades de disco pueden emplear el programa 
copydisc para realizar la copia, pero también resulta interesante ver cómo se realiza 
la copia con una sola unidad. Para iniciar la copia introduzca el disco de CP/M 
y escriba: 


A>disccopy 


DISCCOPY V2.0 
Please insert source disc into drive A then press any key: 


En este caso el disco origen es el que contiene CP/M y ya se encuentra en la unidad, 
por tanto no hay más que pulsar [INTRO]. A continuación el ordenador indica que 
comienza a leer pistas y, una vez que ha leído ocho (de la 0 a la 7), le pide que intro- 
duzca el disco destino y que pulse cualquier tecla. 


El disco destino es el que había preparado para grabar en él la copia. Lo único que 
tiene que hacer es sacar de la unidad de disco el que contiene CP/M e introducir 
el disco en blanco. A continuación el ordenador informa de que ha comenzado a 
copiar los contenidos en el disco, inicializándolo previamente. CP/M no puede leer 
datos de un disco en blanco sin inicializarlo antes. Esta tarea consiste en adaptar 
el disco a las condiciones de trabajo del sistema operativo; para ello existe un pro- 
grama especial que se puede encontrar en el fichero FORMAT.COM. Cuando co- 
pie un disco sobre otro que ya haya utilizado anteriormente, disccopy no tendrá 
que inicializarlo, dado que si ya contenía algo es evidente que en algún momento 
tuvo que ser inicializado. 
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No obstante, para evitar complicaciones disccopy inicializa automáticamente el 
disco destino cuando es necesario, al igual que copydisc. A continuación repita 
varias veces el proceso de copiar ocho pistas cambiando una y otra vez los dos dis- 
cos. Cuando llegue al final el sistema indicará: 


Copying complete 
Do you want to copy another disc (Y/N):_ Y 
Please insert source disc into drive A then press any key: 


A continuación vamos a copiar el disco de Dr LOGO, así que retire la copia del siste- 
ma operativo que acaba de realizar y copie en la otra cara el disco original de Dr 
LOGO. Una vez que haya terminado de copiar el disco, compruebe que todo mar- 
cha bien dando la siguiente instrucción sin sacar de la unidad de disco la copia de 
Dr LOGO: 


DISCCOPY V2.0 finished 


A>dir 
A: LOGO COM : SETUP COM : AMSDOS COM 
A>) 


Ahora que tiene una copia de Dr LOGO guarde el disco original en un lugar seguro. 
En caso de que el disco contenga otros ficheros con la extensión LOG, quiere decir 
que en algún momento había grabado en el disco original algún procedimiento de 
LOGO. Todos los ficheros con la extensión LOG contienen procedimientos, pero 
en la siguiente sección se tratará un poco más sobre este tema. 


Ahora que hemos visto cómo funciona disccopy y antes de seguir adelante, observe 
que cuando el ordenador solicita un disco de sistema con CP/M system disc ... 
puede utilizarse cualquier disco que contenga la información básica de CP/M. En 
este sentido, la mayor parte de los discos con los que va a trabajar son discos de 
sistemas. El disco con Dr LOGO es uno de ellos, ya que tiene pistas con informa- 
ción propia del sistema que no aparecen al solicitar un directorio; pero tenga en 
cuenta que este disco es diferente del disco de CP/M, que además de estas pistas 
contiene varios ficheros con programas que sí aparecen si solicita un directorio, co- 
mo por ejemplo FORMAT.COM. 


C.2 Ficheros de LOGO 


Antes de seguir adelante, es preciso que defina algunos procedimientos y los grabe 
en disco con la primitiva save. 


Para simplificar un poco las cosas grabe un solo fichero de LOGO con la siguiente 
instrucción: 


?save “primero 
? 
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Sin entrar por el momento en lo que pudiera contener el área de trabajo al grabarla, 
escriba: 


?dir 
[PRIMERO] 
? 


con lo que obtiene un directorio de los ficheros LOGO que contiene el disco. Desde 
luego no es una lista completa; fíjese que no aparecen más que los ficheros cuyo 
nombre tiene la extensión LOG. Además, aunque ha grabado el fichero con el nom- 
bre primero (en minúsculas), en la lista que contiene el directorio, que de hecho es 
una lista como cualquier otra, aparece PRIMERO, en mayúsculas. Si hubiese gra- 
bado también otro fichero, por ejemplo n, la lista obtenida sería la siguiente: 


?dir 
[PRIMERO N] 
? 


Observe que es posible trabajar con esta lista como con cualquier otra: 


?item 2 dir 
N 
? 


Esta instrucción ha seleccionado el segundo elemento de la lista. 


Salga de LOGO con bye, vuelva a CP/M y solicite desde ahí el directorio: 


A>dir 

A: LOGO COM : SETUP COM : AMSDOS COM 
A: PRIMERO LOG 

A> 


Observe que el fichero que grabó desde LOGO tiene el nombre PRIMERO.LOG. 
Intente ver qué contiene. Escriba: 


A>type primero.log 

to otromodo :num 

type word char 4 char (:num + 32) 
end 

make ”1 2 


A> 


y compruebe que se trata de dos experimentos realizados en LOGO: un procedi- 
miento llamado otromodo, que permite cambiar el modo de ejecución (¡cuidado 
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con él!), y una instrucción make, que atribuye al objeto 1 el valor 2. La orden type 
de CP/M también permite estudiar el contenido de los ficheros de LOGO. ¿Se pue- 
de emplear esta instrucción con cualquier tipo de fichero? La respuesta es no. La 
instrucción type sólo funciona correctamente con ficheros codificados en ASCII, 
es decir, con ficheros guardados como si se tratase de un conjunto de caracteres 
legibles. 


Si emplea type con ficheros que no estén codificados en ASCII obtendrá algo total- 
mente ilegible. Los ficheros COM, por ejemplo, no son legibles con type. Haga 
la prueba: 


A>type logo.com 


y se perderá irremisiblemente. La única solución es pulsar al mismo tiempo las te- 
clas [CTRL], [SHIFT] y o escribir amsdos, si es que puede escribir a ciegas. 


Desde LOGO es factible modificar los procedimientos, pero no se puede volver a 
grabarlos con el mismo nombre que antes. Por ejemplo: 


?save “primero 
File primero already exists 
? 


El ordenador advierte que primero ya existe. Este artificio tiene como única finali- 
dad impedir que se pierdan los contenidos de un fichero al grabar algo encima del 
mismo. Dr LOGO obliga a pasar a CP/M para borrar un fichero o cambiarle el 
nombre, de forma que no es posible eliminar un fichero por error. 


Para manejar ficheros desde CP/M conviene conocer unas cuantas funciones que 
son muy útiles. 


C.3 Otras funciones de interés 


Si solicitase un directorio de uno de mis discos de LOGO desde CP/M, obtendría 
algo así: 


A>dir 

A: LOGO COM : SETUP COM : AMSDOS COM : STAT COM 
A: UPS LOG 

A> 


Desde luego, UPS.LOG es un fichero de LOGO, pero STAT.COM no aparece en 
el disco original de Dr LOGO. Se trata de un fichero que he copiado desde el disco 
de CP/M por una razón determinada: es fundamental para trabajar con cualquier 
disco. 


Para pasar este fichero al disco de LOGO, no hay más que introducir el disco de 
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CP/M en la unidad y ejecutar la orden filecopy aplicándola al fichero STAT.COM. 
Aquéllos que cuenten con dos unidades de disco pueden copiar el fichero con pip, 
aunque en este caso no suele ser necesario pasar también el fichero PIP.COM al dis- 
co de LOGO. Una vez copiado STAT, vamos a ver para qué sirve. 


En primer lugar escriba: 
A>stat *.x* 


Recs Bytes Ext Acc 
2 1k 1 R/W A:AMSDOS.COM 


256 32k 2 R/W A:LOGO.COM 
61 8k 1 R/W A:SETUP.COM 
61 8k 1 R/W A:STAT.COM 
41 6k 1 R/W A:UPS.LOG 

1 1k 1 R/W A.UPS.LOG 


Bytes Remaining On A: 121k 


A> 


De momento no se preocupe por los títulos de las columnas. El primer dato que 
interesa es la cantidad de bytes libres en el disco, ya que necesita saber si queda espa- 
cio para grabar más ficheros. También puede comprobar que todos los ficheros 
contienen la indicación R/W, gracias a la cual sabrá que puede leer y escribir en cada 
uno de ellos. Esto quiere decir que es posible escribir encima del fichero LO- 
GO.COM. Para evitarlo hay que darle la característica “read only””, que impide 
modificarlo. 


Para ello se emplea la siguiente instrucción: 


A>stat logo.com $r/o 


LOGO.COM set to R/O 
A>stat *.x* 
Recs Bytes Ext Acc 
2 1k 1 R/W A:AMSDOS.COM 


256 32k 2 R/O A:LOGO.COM 
61 8K 1 R/W A:SETUP.COM 
41 6k 1 R/W A:STAT.COM 

1 1k 1 R/W A:UPS.COM 


Bytes Remaining On A: 121k 
A> 

Si ha conseguido dar a LOGO.COM la característica R/O, intente borrarlo con era: 
A>era logo.com 


Bdos Err On A: File R/O 
A> 
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Ahora ya está mucho más tranquilo, ¿verdad? 


Como puede comprobar, la única forma de aprender cómo funciona CP/M consiste 
en utilizarlo. CP/M es un sistema operativo muy útil y juega un papel importante 
incluso al trabajar con Dr LOGO. Dos funciones útiles son las siguientes: 


— Es posible emplear el editor de CP/M, ed, para modificar los ficheros grabados 
desde Dr LOGO. Hay que hacer notar que, si su ordenador sólo cuenta con una 
unidad de disco, tendrá que copiar el fichero ED.COM en el disco que contiene 
LOGO. Este sistema permite depurar un poco los ficheros borrando los proce- 
dimientos y variables que no vayan a ser utilizados. No se olvide de borrar la 
copia de seguridad del fichero. Se distingue por la extensión BAK. 


— La orden pip permite introducir ficheros de LOGO directamente desde CP/M. 
Por ejemplo: 


A>pip trial.log =con: 


permite introducir a través del teclado un fichero denominado trial.log. No ol- 
vide que para finalizar cada línea hay que pulsar [INTRO][[CTRL][J], y que para ter- 
minar el fichero hay que pulsar [CTRL[Z]. 


Antes de hacer uso de estas dos funciones es conveniente que adquiera más experien- 
cia con CP/M, especialmente en lo que se refiere a la creación de ficheros LOGO 
con pip. 


Apéndice D 
Ampliaciones de LOGO 


Este apéndice tiene por objeto explicar cómo se puede escribir ampliaciones de LO- 
GO desde código de máquina, y cómo pueden redefinirse las primitivas para obtener 
otras formas de funcionamiento. 


Por ejemplo, suponga que queremos modificar la definición de fd de manera que 
esta primitiva, además de dibujar líneas en pantalla, mueva una tortuga que se en- 
cuentre en el suelo. Para modificar esta definición conservando la posibilidad de 
dibujar en pantalla sin mover la tortuga del suelo, vamos a definir otro procedimien- 
to, al que llamaremos avanzar, que actúe exactamente igual que el antiguo fd. 


La clave la ofrece la propiedad .PRM. Todas las primitivas de LOGO tienen la pro- 
piedad .PRM, siendo el valor de esta propiedad la dirección de memoria donde co- 
mienza la rutina en código de máquina que activa la primitiva correspondiente. 
Por ejemplo: 


?gprop “fd ”“.PRM 

6365 

?pprop “avanzar “.PRM gprop “fd “.PRM 
?repeat 4 [avanzar 100 rt 90] 

? 


Hemos atribuido a avanzar la acción que antes realizaba fd. Esto quiere decir que 
ahora podemos volver a definir tranquilamente fd, porque avanzar realiza la mis- 
ma acción. 


Antes de seguir adelante por este camino, hay que hacer un poco de sitio en memoria 
para almacenar las nuevas rutinas en código de máquina, y además es preciso dar 
otro valor a la propiedad .PRM de fd. Esta última tarea es muy sencilla: 
?pprop “fd “.PRM 48148 
? 
Antes de emplear la nueva versión de fd, grabe en disco el área de trabajo como 
medida de seguridad. Ahora escriba: 


?fd 
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Las consecuencias pueden ser muchas y muy variadas, pero lo más normal es que 
pierda el control del ordenador y tenga que pulsar y [ESC]. 


Para ampliar la memoria de forma que admita nuevas rutinas en código de máqui- 
na, es necesario volver a CP/M y reducir el espacio que ocupa el propio CP/M por 
medio del comando movcpm. La siguiente orden permite saber cuál es el espacio 
ocupado por CP/M: 


A>movcpm 179 x* 
pero con la instrucción: 
A>movcpm 171 x* 


el tamaño de CP/M queda reducido dejando libres 2K para rutinas en código de má- 
quina, es decir, (179-—171)*256 bytes. Con ello ha bajado el límite superior de 
CP/M desde la posición .AD32 (44338) hasta la .A532 (42290). Esto quiere decir 
que las nuevas rutinas en código de máquina deben tener valores de .PRM compren- 
didos entre 42290 y 44338. 


Para grabar en disco la nueva configuración de CP/M, escriba: 
A>sysgen * 


y siga las indicaciones del ordenador. 


Antes de entrar en LOGO hay que cargar las rutinas en código de máquina en el 
espacio reservado para tal fin. Para ello normalmente se emplea un programa de 
aplicaciones específico, cuya descripción rebasa el ámbito de este apéndice. Hay 
que advertir que el sistema normal de LOGO cuenta con 2105 nodos, mientras que 
el sistema con configuración de CP/M reducida en 2K no cuenta más que con 1609 
nodos. Hay que compensar el espacio que ocupan las nuevas rutinas en código de 
máquina con el espacio que queda disponible para los procedimientos normales. 


Si se quiere conservar una redefinición, hay que incluirla en un procedimiento que 
pueda ser grabado como parte del área de trabajo. Por ejemplo: 


?to redef 

>pprop “avanzar ”.PRM gprop “fd ”“.PRM 
>pprop “fd ”“.PRM 0 

>end 

redef defined 

?save “procs 

? 


Para recuperar estas dos nuevas definiciones no hay más que cargar el fichero procs 
y ejecutar el procedimiento rederf. 
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